//
// Основной тест команд.
// Ловушка прерываний О-776.
//
        .text
zero = .

        .=      zero+020
	.word   type

        .=      zero+022
	.word   0

        .=      zero+024
	.word   0200

        .=      zero+044
	.word   _apthdr

        .=      zero+046
	.word   _endad

        .=      zero+052
	.word   0

//
// Точка входа.
//
        .=      zero+0200
        mov	$pwrdn, *$024
        mov	$_etable, r0
1:      clr	-(r0)
        cmp	r0, $_mail
        bhi	1b
        jmp     start

//
// Переменные.
//
        .=      zero+0400
_mail:
_msgty: .word   0
_fatal: .word   0               // номер ошибки
_testn: .word   0               // номер теста
_pass:  .word   0               // счетчик проходов
_devct: .word   0
_unit:  .word   0
_msgad: .word   0
_msglg: .word   0
_etable:
_env:   .byte   0
_envm:  .byte   0
_swreg: .word   0
_uswr:  .word   0
_cpuop: .word   0
_etend:

_apthdr:
adr:
_hibts: .word   0
adr1:
_mbadr: .word   _mail
adr2:
_tstm:  .word   1
dummy:
_pastm: .word   1
temp:
_unitm: .word   0
temp1:
        .word   014
temp2:
        .word   0

tps:    .word   0177564
tpb:    .word   0177566
mark2:  mark    2
endpas: .word   05015           // " к проход"
        < K PROHOD\r\n\0>
power:  .word   05015           // "питание"
        <PITANIE\r\n\0>

        .=      zero+0530
start:  mov	$start, sp
        mov	$_testn, r5
        tst	(r5)
        beq	nobit
        halt                    // задать номер теста
//
// Тест 0. Команды ветвления N=Z=V=C=0.
//
nobit:  cmp	(r5), $0
        bne	cc0
        inc	(r5)
        ccc
        bcs	cc0
        bvs	cc0
        beq	cc0
        bmi	cc0
        nop1

        bcs	cc0
        bvs	cc0
        beq	cc0
        bmi	cc0
        blt	cc0
        ble	cc0
        blos	cc0
        bhi	endcc0

cc0:    mov	$1, -(r5)
        inc	-(r5)
        halt                    // ошибка ветвления или НПТ
endcc0: bvc	nbit

//
// Тест 1. Команды ветвления N=1.
//
nbit:   cmp	(r5), $1
        bne	cc1
        inc	(r5)
        sen
        bpl	cc1
        beq	cc1
        bge	cc1
        bgt	cc1
        bcs	cc1
        blos	cc1
        bcs	cc1
        ble	endcc1
cc1:    mov	$2, -(r5)
        inc	-(r5)
        halt                    // ошибка ветвления или НПТ
endcc1: bne	vbit

//
// Тест 2. Команды ветвления N=1.
//
vbit:   cmp	(r5), $2
        bne	cc2
        inc	(r5)
        sen
        sev
        bvc	cc2
        beq	cc2
        bpl	cc2
        bcs	cc2
        blt	cc2
        ble	cc2
        blos	cc2
        bcs	cc2
        bgt	endcc2
cc2:    mov	$3, -(r5)
        inc	-(r5)
        halt                    // ошибка ветвления или НПТ
endcc2: bge	cbit

//
// Тест 3. Команды ветвления N=V=C=1.
//
cbit:   cmp	(r5), $3
        bne	cc3
        inc	(r5)
        sen
        sev
        sec
        beq	cc3
        bpl	cc3
        bvc	cc3
        blt	cc3
        ble	cc3
        bhi	cc3
        bge	zbit
cc3:    mov	$4, -(r5)
        inc	-(r5)
        halt                    // ошибка ветвления или НПТ

//
// Тест 4. Команды ветвления N=Z=V=C=1.
//
zbit:   cmp	(r5), $4
        bne	cc4
        inc	(r5)
        sen
        sev
        sec
        sez
        bne	cc4
        bpl	cc4
        bvc	cc4
        bcc	cc4
        blt	cc4
        bgt	cc4
        bhi	cc4
        beq	yescc
cc4:    mov	$5, -(r5)
        inc	-(r5)
        halt                    // ошибка ветвления или НПТ

//
// Тест 5. Команды ветвления N=Z=V=C=1.
//
yescc:  cmp	(r5), $5
        bne	cc6
        inc	(r5)
        scc
        bpl	cc6
        bne	cc6
        bvc	cc6
        bcc	cc6
        nop
        bpl	cc6
        bne	cc6
        bvc	cc6
        bcc	cc6
        blos	notcc
cc6:    mov	$6, -(r5)
        inc	-(r5)
        halt                    // ошибка ветвления или НПТ

//
// Тест 6. Очистка признаков.
//
notcc:  cmp	(r5), $6
        bne	cc5
        inc	(r5)
        scc
        clc
        bcs	cc5
        clv
        bvs	cc5
        clz
        beq	cc5
        cln
        bmi	cc5
        bhi	endcc5
cc5:    mov	$7, -(r5)
        inc	-(r5)
        halt
endcc5: bpl	branch

//
// Тест 7. BR.
//
branch: cmp	(r5), $7
        beq	1f
        mov	$010, -(r5)
        inc	-(r5)
        halt                    // нарушен порядок тестов
1:      inc	(r5)
        br	4f
        mov	$9, -(r5)
        inc	-(r5)
        halt                    // BR не выполнила ветвления
2:      br	3f
        mov	$10, -(r5)
        inc	-(r5)
        halt                    // BR не выполнила ветвления
3:      br	5f
        mov	$11, -(r5)
        inc	-(r5)
        halt                    // BR не выполнила ветвления
4:      br	2b
        mov	$12, -(r5)
        inc	-(r5)
        halt                    // BR не выполнила ветвления
5:      br	jmp1

//
// Тест 10. JMP метод=1.
//
jmp1: 	cmp	(r5), $8
    	bne	endjp1
    	inc	(r5)
    	mov	$714, r0
    	scc
    	jmp	(r0)
    	mov	$13, -(r5)
    	inc	-(r5)
    	halt                    // нет перехода по JMP (r0)
    	bpl	1f
    	bne	1f
    	bvc	1f
    	bcs	2f
1:    	mov	$14, -(r5)
    	inc	-(r5)
    	halt                    // JMP изменила (РСП)
2:    	cmp	r0, $714
    	beq	3f
    	mov	$15, -(r5)
    	inc	-(r5)
    	halt                    // JMP изменила (r0)
3:    	mov	$jmp2, r0
    	jmp	(r0)
endjp1: mov	$16, -(r5)
    	inc	-(r5)
    	halt                    // нет перехода по JMP (r0) или НПТ

//
// Тест 11. JMP метод=2,3.
//
jmp2:
    	cmp	(r5), $011
    	bne	endjp3
    	inc	(r5)
    	mov	$5f, r0         // метод=2
    	scc
    	jmp	(r0)+
    	mov	$021, -(r5)
    	inc	-(r5)
    	halt                    // нет перехода по JMP (r0)+
5:    	bpl	1f
    	bne	1f
    	bvc	1f
    	bcs	2f
1:   	mov	$022, -(r5)
    	inc	-(r5)
    	halt                    // JMP изменила (РСП)
2:    	cmp	r0, $5b + 2
    	beq	3f
    	mov	$19, -(r5)
    	inc	-(r5)
    	halt                    // (r0) не увеличилось на 2
3:    	mov	$jmp3, r0
    	jmp	(r0)+
    	mov	$20, -(r5)
    	inc	-(r5)
    	halt                    // нет перехода по JMP (r0)+
jmp3:	mov	$6f, temp       // метод=3
	mov	$4f, temp1
    	mov	$temp, r0
    	scc
    	jmp	*(r0)+
    	mov	$025, -(r5)
    	inc	-(r5)
    	halt                    // нет перехода по JMP *(r0)+
6:	cmp	*0(r0), 4f
    	beq	4f
    	mov	$026, -(r5)
    	inc	-(r5)
    	halt                    // (r0) не увеличилось на 2
4:	mov	$jmp4, temp
    	mov	$temp, r0
    	jmp	*(r0)+
endjp3:	mov	$027, -(r5)
    	inc	-(r5)
    	halt                    // нет перехода по JMP (r0)+ или НПТ

jmp4:

#if 0
  1572: 021527 000012       	cmp	(r5), $10
  1576: 001075              	bne	01772 <.text+01772>
  1600: 005215              	inc	(r5)
  1602: 012700 001624       	mov	$916, r0
  1606: 000277              	scc
  1610: 000140              	jmp	-(r0)
  1612: 012745 000030       	mov	$24, -(r5)
  1616: 005245              	inc	-(r5)
  1620: 000000              	halt
  1622: 000404              	br	01634 <.text+01634>
  1624: 012745 000031       	mov	$25, -(r5)
  1630: 005245              	inc	-(r5)
  1632: 000000              	halt
  1634: 022700 001622       	cmp	$914, r0
  1640: 001404              	beq	01652 <.text+01652>
  1642: 012745 000032       	mov	$26, -(r5)
  1646: 005245              	inc	-(r5)
  1650: 000000              	halt
  1652: 012700 001672       	mov	$954, r0
  1656: 000140              	jmp	-(r0)
  1660: 012745 000033       	mov	$27, -(r5)
  1664: 005245              	inc	-(r5)
  1666: 000000              	halt
  1670: 012767 001722 176544	mov	$978, $0442 <.text+0442>
  1676: 012700 000442       	mov	$290, r0
  1702: 012767 001732 176530	mov	$986, $0440 <.text+0440>
  1710: 000150              	jmp	*-(r0)
  1712: 012745 000034       	mov	$28, -(r5)
  1716: 005245              	inc	-(r5)
  1720: 000000              	halt
  1722: 012745 000035       	mov	$29, -(r5)
  1726: 005245              	inc	-(r5)
  1730: 000000              	halt
  1732: 022700 000440       	cmp	$288, r0
  1736: 001404              	beq	01750 <.text+01750>
  1740: 012745 000036       	mov	$30, -(r5)
  1744: 005245              	inc	-(r5)
  1746: 000000              	halt
  1750: 012767 001722 176464	mov	$978, $0442 <.text+0442>
  1756: 012700 000442       	mov	$290, r0
  1762: 012767 002002 176450	mov	$1026, $0440 <.text+0440>
  1770: 000150              	jmp	*-(r0)
  1772: 012745 000037       	mov	$31, -(r5)
  1776: 005245              	inc	-(r5)
  2000: 000000              	halt

  2002: 021527 000013       	cmp	(r5), $11
  2006: 001071              	bne	02172 <.text+02172>
  2010: 005215              	inc	(r5)
  2012: 012703 002040       	mov	$1056, r3
  2016: 000163 177772       	jmp	-6(r3)
  2022: 012745 000040       	mov	$32, -(r5)
  2026: 005245              	inc	-(r5)
  2030: 000000              	halt
  2032: 020327 002040       	cmp	r3, $1056
  2036: 001404              	beq	02050 <.text+02050>
  2040: 012745 000041       	mov	$33, -(r5)
  2044: 005245              	inc	-(r5)
  2046: 000000              	halt
  2050: 000167 000010       	jmp	02064 <.text+02064>
  2054: 012745 000042       	mov	$34, -(r5)
  2060: 005245              	inc	-(r5)
  2062: 000000              	halt
  2064: 012703 002104       	mov	$1092, r3
  2070: 000163 000000       	jmp	0(r3)
  2074: 012745 000043       	mov	$35, -(r5)
  2100: 005245              	inc	-(r5)
  2102: 000000              	halt
  2104: 012703 000440       	mov	$288, r3
  2110: 012713 002130       	mov	$1112, (r3)
  2114: 000173 000000       	jmp	*0(r3)
  2120: 012745 000044       	mov	$36, -(r5)
  2124: 005245              	inc	-(r5)
  2126: 000000              	halt
  2130: 012713 002154       	mov	$1132, (r3)
  2134: 012700 000434       	mov	$284, r0
  2140: 000170 000004       	jmp	*4(r0)
  2144: 012745 000045       	mov	$37, -(r5)
  2150: 005245              	inc	-(r5)
  2152: 000000              	halt
  2154: 012767 002202 176256	mov	$1154, $0440 <.text+0440>
  2162: 012700 000440       	mov	$288, r0
  2166: 000170 000000       	jmp	*0(r0)
  2172: 012745 000046       	mov	$38, -(r5)
  2176: 005245              	inc	-(r5)
  2200: 000000              	halt

  2202: 021527 000014       	cmp	(r5), $12
  2206: 001177              	bne	02606 <.text+02606>
  2210: 005215              	inc	(r5)
  2212: 012706 000530       	mov	$start, sp
  2216: 000277              	scc
  2220: 004767 000026       	jsr	pc, 02252 <.text+02252>
  2224: 012745 000047       	mov	$39, -(r5)
  2230: 005245              	inc	-(r5)
  2232: 000000              	halt
  2234: 022706 000530       	cmp	$start, sp
  2240: 001441              	beq	02344 <.text+02344>
  2242: 012745 000050       	mov	$40, -(r5)
  2246: 005245              	inc	-(r5)
  2250: 000000              	halt
  2252: 100003              	bpl	02262 <.text+02262>
  2254: 001002              	bne	02262 <.text+02262>
  2256: 102001              	bvc	02262 <.text+02262>
  2260: 103404              	bcs	02272 <.text+02272>
  2262: 012745 000051       	mov	$41, -(r5)
  2266: 005245              	inc	-(r5)
  2270: 000000              	halt
  2272: 022706 000526       	cmp	$342, sp
  2276: 001404              	beq	02310 <.text+02310>
  2300: 012745 000052       	mov	$42, -(r5)
  2304: 005245              	inc	-(r5)
  2306: 000000              	halt
  2310: 022716 002224       	cmp	$1172, (sp)
  2314: 001404              	beq	02326 <.text+02326>
  2316: 012745 000053       	mov	$43, -(r5)
  2322: 005245              	inc	-(r5)
  2324: 000000              	halt
  2326: 012716 002234       	mov	$1180, (sp)
  2332: 000207              	rts	pc
  2334: 012745 000054       	mov	$44, -(r5)
  2340: 005245              	inc	-(r5)
  2342: 000000              	halt
  2344: 010546              	mov	r5, -(sp)
  2346: 016746 176064       	mov	$0434 <.text+0434>, -(sp)
  2352: 016746 176060       	mov	$0434 <.text+0434>, -(sp)
  2356: 016746 176070       	mov	tpb, -(sp)
  2362: 010503              	mov	r5, r3
  2364: 004467 000130       	jsr	r4, 02520 <.text+02520>
  2370: 012745 000055       	mov	$45, -(r5)
  2374: 005245              	inc	-(r5)
  2376: 000000              	halt
  2400: 100003              	bpl	02410 <.text+02410>
  2402: 001002              	bne	02410 <.text+02410>
  2404: 102001              	bvc	02410 <.text+02410>
  2406: 103404              	bcs	02420 <.text+02420>
  2410: 012743 000056       	mov	$46, -(r3)
  2414: 005243              	inc	-(r3)
  2416: 000000              	halt
  2420: 022705 000404       	cmp	$_testn, r5
  2424: 001404              	beq	02436 <.text+02436>
  2426: 012743 000057       	mov	$47, -(r3)
  2432: 005243              	inc	-(r3)
  2434: 000000              	halt
  2436: 022706 000530       	cmp	$start, sp
  2442: 001404              	beq	02454 <.text+02454>
  2444: 012745 000060       	mov	$48, -(r5)
  2450: 005245              	inc	-(r5)
  2452: 000000              	halt
  2454: 012701 002562       	mov	$1394, r1
  2460: 004011              	jsr	r0, (r1)
  2462: 012745 000061       	mov	$49, -(r5)
  2466: 005245              	inc	-(r5)
  2470: 000000              	halt
  2472: 012745 000062       	mov	$50, -(r5)
  2476: 005245              	inc	-(r5)
  2500: 000000              	halt
  2502: 022706 000530       	cmp	$start, sp
  2506: 001443              	beq	02616 <.text+02616>
  2510: 012745 000063       	mov	$51, -(r5)
  2514: 005245              	inc	-(r5)
  2516: 000000              	halt
  2520: 020427 002370       	cmp	r4, $1272
  2524: 001404              	beq	02536 <.text+02536>
  2526: 012745 000064       	mov	$52, -(r5)
  2532: 005245              	inc	-(r5)
  2534: 000000              	halt
  2536: 010605              	mov	sp, r5
  2540: 005725              	tst	(r5)+
  2542: 012716 002400       	mov	$1280, (sp)
  2546: 000277              	scc
  2550: 000205              	rts	r5
  2552: 012745 000065       	mov	$53, -(r5)
  2556: 005245              	inc	-(r5)
  2560: 000000              	halt
  2562: 020027 002462       	cmp	r0, $1330
  2566: 001404              	beq	02600 <.text+02600>
  2570: 012745 000066       	mov	$54, -(r5)
  2574: 005245              	inc	-(r5)
  2576: 000000              	halt
  2600: 012700 002502       	mov	$1346, r0
  2604: 000200              	rts	r0
  2606: 012745 000067       	mov	$55, -(r5)
  2612: 005245              	inc	-(r5)
  2614: 000000              	halt

  2616: 021527 000015       	cmp	(r5), $13
  2622: 001034              	bne	02714 <.text+02714>
  2624: 005215              	inc	(r5)
  2626: 010667 175606       	mov	sp, $0440 <.text+0440>
  2632: 012700 000001       	mov	$1, r0
  2636: 012701 000004       	mov	$4, r1
  2642: 012702 000020       	mov	$16, r2
  2646: 012703 000100       	mov	$64, r3
  2652: 012704 000400       	mov	$256, r4
  2656: 005006              	clr	sp
  2660: 060006              	add	r0, sp
  2662: 060106              	add	r1, sp
  2664: 060206              	add	r2, sp
  2666: 060306              	add	r3, sp
  2670: 060406              	add	r4, sp
  2672: 060506              	add	r5, sp
  2674: 022706 001131       	cmp	$601, sp
  2700: 001003              	bne	02710 <.text+02710>
  2702: 016706 175532       	mov	$0436 <.text+0436>, sp
  2706: 000406              	br	02724 <.text+02724>
  2710: 016706 175524       	mov	$0436 <.text+0436>, sp
  2714: 012745 000070       	mov	$56, -(r5)
  2720: 005245              	inc	-(r5)
  2722: 000000              	halt

  2724: 021527 000016       	cmp	(r5), $14
  2730: 001404              	beq	02742 <.text+02742>
  2732: 012745 000071       	mov	$57, -(r5)
  2736: 005245              	inc	-(r5)
  2740: 000000              	halt
  2742: 005215              	inc	(r5)
  2744: 000277              	scc
  2746: 105000              	clrb	r0
  2750: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
  2754: 105700              	tstb	r0
  2756: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
  2762: 112701 000377       	movb	$255, r1
  2766: 004737 017252       	jsr	pc, *$_cc10 <.text+017252>
  2772: 105701              	tstb	r1
  2774: 004737 017252       	jsr	pc, *$_cc10 <.text+017252>

  3000: 021527 000017       	cmp	(r5), $15
  3004: 001027              	bne	03064 <.text+03064>
  3006: 005215              	inc	(r5)
  3010: 000277              	scc
  3012: 152702 000377       	bisb	$255, r2
  3016: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
  3022: 122702 000377       	cmpb	$255, r2
  3026: 001404              	beq	03040 <.text+03040>
  3030: 012745 000072       	mov	$58, -(r5)
  3034: 005245              	inc	-(r5)
  3036: 000000              	halt
  3040: 112700 000077       	movb	$63, r0
  3044: 120002              	cmpb	r0, r2
  3046: 100004              	bpl	03060 <.text+03060>
  3050: 012745 000073       	mov	$59, -(r5)
  3054: 005245              	inc	-(r5)
  3056: 000000              	halt
  3060: 120200              	cmpb	r2, r0
  3062: 100404              	bmi	03074 <.text+03074>
  3064: 012745 000074       	mov	$60, -(r5)
  3070: 005245              	inc	-(r5)
  3072: 000000              	halt

  3074: 021527 000020       	cmp	(r5), $16
  3100: 001404              	beq	03112 <.text+03112>
  3102: 012745 000075       	mov	$61, -(r5)
  3106: 005245              	inc	-(r5)
  3110: 000000              	halt
  3112: 005215              	inc	(r5)
  3114: 112703 000377       	movb	$255, r3
  3120: 112700 000252       	movb	$170, r0
  3124: 000277              	scc
  3126: 140003              	bicb	r0, r3
  3130: 004737 017102       	jsr	pc, *$_cc1 <.text+017102>
  3134: 130003              	bitb	r0, r3
  3136: 001404              	beq	03150 <.text+03150>
  3140: 012745 000076       	mov	$62, -(r5)
  3144: 005245              	inc	-(r5)
  3146: 000000              	halt
  3150: 132703 000125       	bitb	$85, r3
  3154: 004737 017102       	jsr	pc, *$_cc1 <.text+017102>
  3160: 150003              	bisb	r0, r3
  3162: 100404              	bmi	03174 <.text+03174>
  3164: 012745 000077       	mov	$63, -(r5)
  3170: 005245              	inc	-(r5)
  3172: 000000              	halt
  3174: 142703 000177       	bicb	$127, r3
  3200: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
  3204: 132703 000377       	bitb	$255, r3
  3210: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>

  3214: 021527 000021       	cmp	(r5), $17
  3220: 001404              	beq	03232 <.text+03232>
  3222: 012745 000100       	mov	$64, -(r5)
  3226: 005245              	inc	-(r5)
  3230: 000000              	halt
  3232: 005215              	inc	(r5)
  3234: 112704 000177       	movb	$127, r4
  3240: 000261              	.word	177
  3242: 105204              	incb	r4
  3244: 004737 017334       	jsr	pc, *$_cc13 <.text+017334>
  3250: 112704 000376       	movb	$254, r4
  3254: 105204              	incb	r4
  3256: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
  3262: 105204              	incb	r4
  3264: 004737 017206       	jsr	pc, *$_cc5 <.text+017206>
  3270: 105204              	incb	r4
  3272: 004737 017102       	jsr	pc, *$_cc1 <.text+017102>
  3276: 122704 000001       	cmpb	$1, r4
  3302: 001404              	beq	03314 <.text+03314>
  3304: 012745 000101       	mov	$65, -(r5)
  3310: 005245              	inc	-(r5)
  3312: 000000              	halt
  3314: 000261              	.word	177
  3316: 105304              	decb	r4
  3320: 004737 017206       	jsr	pc, *$_cc5 <.text+017206>
  3324: 105304              	decb	r4
  3326: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
  3332: 012704 000200       	mov	$128, r4
  3336: 105304              	decb	r4
  3340: 004737 017142       	jsr	pc, *$_cc3 <.text+017142>
  3344: 105304              	decb	r4
  3346: 004737 017102       	jsr	pc, *$_cc1 <.text+017102>

  3352: 021527 000022       	cmp	(r5), $18
  3356: 001404              	beq	03370 <.text+03370>
  3360: 012745 000102       	mov	$66, -(r5)
  3364: 005245              	inc	-(r5)
  3366: 000000              	halt
  3370: 005215              	inc	(r5)
  3372: 112703 000252       	movb	$170, r3
  3376: 000277              	scc
  3400: 105103              	comb	r3
  3402: 004737 017102       	jsr	pc, *$_cc1 <.text+017102>
  3406: 122703 000125       	cmpb	$85, r3
  3412: 001404              	beq	03424 <.text+03424>
  3414: 012745 000103       	mov	$67, -(r5)
  3420: 005245              	inc	-(r5)
  3422: 000000              	halt
  3424: 000277              	scc
  3426: 105103              	comb	r3
  3430: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
  3434: 122703 000252       	cmpb	$170, r3
  3440: 001404              	beq	03452 <.text+03452>
  3442: 012745 000104       	mov	$68, -(r5)
  3446: 005245              	inc	-(r5)
  3450: 000000              	halt
  3452: 012703 000377       	mov	$255, r3
  3456: 000277              	scc
  3460: 105103              	comb	r3
  3462: 004737 017206       	jsr	pc, *$_cc5 <.text+017206>

  3466: 021527 000023       	cmp	(r5), $19
  3472: 001025              	bne	03546 <.text+03546>
  3474: 005215              	inc	(r5)
  3476: 112700 000001       	movb	$1, r0
  3502: 105400              	negb	r0
  3504: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
  3510: 122700 000377       	cmpb	$255, r0
  3514: 001404              	beq	03526 <.text+03526>
  3516: 012745 000105       	mov	$69, -(r5)
  3522: 005245              	inc	-(r5)
  3524: 000000              	halt
  3526: 012700 000200       	mov	$128, r0
  3532: 105400              	negb	r0
  3534: 004737 017334       	jsr	pc, *$_cc13 <.text+017334>
  3540: 122700 000200       	cmpb	$128, r0
  3544: 001404              	beq	03556 <.text+03556>
  3546: 012745 000106       	mov	$70, -(r5)
  3552: 005245              	inc	-(r5)
  3554: 000000              	halt

  3556: 021527 000024       	cmp	(r5), $20
  3562: 001026              	bne	03640 <.text+03640>
  3564: 005215              	inc	(r5)
  3566: 112701 000040       	movb	$32, r1
  3572: 000257              	ccc
  3574: 106101              	rolb	r1
  3576: 106101              	rolb	r1
  3600: 004737 017314       	jsr	pc, *$_cc12 <.text+017314>
  3604: 122701 000200       	cmpb	$128, r1
  3610: 001404              	beq	03622 <.text+03622>
  3612: 012745 000107       	mov	$71, -(r5)
  3616: 005245              	inc	-(r5)
  3620: 000000              	halt
  3622: 106101              	rolb	r1
  3624: 004737 017230       	jsr	pc, *$_cc7 <.text+017230>
  3630: 106101              	rolb	r1
  3632: 122701 000001       	cmpb	$1, r1
  3636: 001404              	beq	03650 <.text+03650>
  3640: 012745 000110       	mov	$72, -(r5)
  3644: 005245              	inc	-(r5)
  3646: 000000              	halt

  3650: 021527 000025       	cmp	(r5), $21
  3654: 001026              	bne	03732 <.text+03732>
  3656: 005215              	inc	(r5)
  3660: 112702 000004       	movb	$4, r2
  3664: 000257              	ccc
  3666: 106002              	rorb	r2
  3670: 106002              	rorb	r2
  3672: 122702 000001       	cmpb	$1, r2
  3676: 001404              	beq	03710 <.text+03710>
  3700: 012745 000111       	mov	$73, -(r5)
  3704: 005245              	inc	-(r5)
  3706: 000000              	halt
  3710: 106002              	rorb	r2
  3712: 004737 017230       	jsr	pc, *$_cc7 <.text+017230>
  3716: 106002              	rorb	r2
  3720: 004737 017314       	jsr	pc, *$_cc12 <.text+017314>
  3724: 122702 000200       	cmpb	$128, r2
  3730: 001404              	beq	03742 <.text+03742>
  3732: 012745 000112       	mov	$74, -(r5)
  3736: 005245              	inc	-(r5)
  3740: 000000              	halt

  3742: 021527 000026       	cmp	(r5), $22
  3746: 001404              	beq	03760 <.text+03760>
  3750: 012745 000113       	mov	$75, -(r5)
  3754: 005245              	inc	-(r5)
  3756: 000000              	halt
  3760: 005215              	inc	(r5)
  3762: 112703 000040       	movb	$32, r3
  3766: 000257              	ccc
  3770: 106303              	aslb	r3
  3772: 106303              	aslb	r3
  3774: 004737 017314       	jsr	pc, *$_cc12 <.text+017314>
  4000: 122703 000200       	cmpb	$128, r3
  4004: 001404              	beq	04016 <.text+04016>
  4006: 012745 000114       	mov	$76, -(r5)
  4012: 005245              	inc	-(r5)
  4014: 000000              	halt
  4016: 106303              	aslb	r3
  4020: 004737 017230       	jsr	pc, *$_cc7 <.text+017230>
  4024: 106303              	aslb	r3
  4026: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>

  4032: 021527 000027       	cmp	(r5), $23
  4036: 001034              	bne	04130 <.text+04130>
  4040: 005215              	inc	(r5)
  4042: 112704 000004       	movb	$4, r4
  4046: 000257              	ccc
  4050: 106204              	asrb	r4
  4052: 106204              	asrb	r4
  4054: 122704 000001       	cmpb	$1, r4
  4060: 001404              	beq	04072 <.text+04072>
  4062: 012745 000115       	mov	$77, -(r5)
  4066: 005245              	inc	-(r5)
  4070: 000000              	halt
  4072: 106204              	asrb	r4
  4074: 004737 017230       	jsr	pc, *$_cc7 <.text+017230>
  4100: 106204              	asrb	r4
  4102: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
  4106: 112703 000202       	movb	$130, r3
  4112: 106203              	asrb	r3
  4114: 106203              	asrb	r3
  4116: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
  4122: 122703 000340       	cmpb	$224, r3
  4126: 001404              	beq	04140 <.text+04140>
  4130: 012745 000116       	mov	$78, -(r5)
  4134: 005245              	inc	-(r5)
  4136: 000000              	halt

  4140: 021527 000030       	cmp	(r5), $24
  4144: 001404              	beq	04156 <.text+04156>
  4146: 012745 000117       	mov	$79, -(r5)
  4152: 005245              	inc	-(r5)
  4154: 000000              	halt
  4156: 005215              	inc	(r5)
  4160: 105000              	clrb	r0
  4162: 000257              	ccc
  4164: 105500              	adcb	r0
  4166: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
  4172: 000261              	.word	177
  4174: 105500              	adcb	r0
  4176: 000261              	.word	177
  4200: 105500              	adcb	r0
  4202: 004737 017062       	jsr	pc, *$_cc0 <.text+017062>
  4206: 122700 000002       	cmpb	$2, r0
  4212: 001404              	beq	04224 <.text+04224>
  4214: 012745 000120       	mov	$80, -(r5)
  4220: 005245              	inc	-(r5)
  4222: 000000              	halt
  4224: 112700 000177       	movb	$127, r0
  4230: 000261              	.word	177
  4232: 105500              	adcb	r0
  4234: 004737 017314       	jsr	pc, *$_cc12 <.text+017314>
  4240: 122700 000200       	cmpb	$128, r0
  4244: 001404              	beq	04256 <.text+04256>
  4246: 012745 000121       	mov	$81, -(r5)
  4252: 005245              	inc	-(r5)
  4254: 000000              	halt
  4256: 112700 000377       	movb	$255, r0
  4262: 000261              	.word	177
  4264: 105500              	adcb	r0
  4266: 004737 017206       	jsr	pc, *$_cc5 <.text+017206>

  4272: 021527 000031       	cmp	(r5), $25
  4276: 001404              	beq	04310 <.text+04310>
  4300: 012745 000122       	mov	$82, -(r5)
  4304: 005245              	inc	-(r5)
  4306: 000000              	halt
  4310: 005215              	inc	(r5)
  4312: 112701 000003       	movb	$3, r1
  4316: 000257              	ccc
  4320: 105601              	sbcb	r1
  4322: 004737 017062       	jsr	pc, *$_cc0 <.text+017062>
  4326: 122701 000003       	cmpb	$3, r1
  4332: 001404              	beq	04344 <.text+04344>
  4334: 012745 000123       	mov	$83, -(r5)
  4340: 005245              	inc	-(r5)
  4342: 000000              	halt
  4344: 000261              	.word	177
  4346: 105601              	sbcb	r1
  4350: 000261              	.word	177
  4352: 105601              	sbcb	r1
  4354: 004737 017062       	jsr	pc, *$_cc0 <.text+017062>
  4360: 122701 000001       	cmpb	$1, r1
  4364: 001404              	beq	04376 <.text+04376>
  4366: 012745 000124       	mov	$84, -(r5)
  4372: 005245              	inc	-(r5)
  4374: 000000              	halt
  4376: 000261              	.word	177
  4400: 105601              	sbcb	r1
  4402: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
  4406: 000261              	.word	177
  4410: 105601              	sbcb	r1
  4412: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
  4416: 122701 000377       	cmpb	$255, r1
  4422: 001404              	beq	04434 <.text+04434>
  4424: 012745 000125       	mov	$85, -(r5)
  4430: 005245              	inc	-(r5)
  4432: 000000              	halt
  4434: 112701 000200       	movb	$128, r1
  4440: 000261              	.word	177
  4442: 105601              	sbcb	r1
  4444: 004737 017122       	jsr	pc, *$_cc2 <.text+017122>

  4450: 021527 000032       	cmp	(r5), $26
  4454: 001404              	beq	04466 <.text+04466>
  4456: 012745 000126       	mov	$86, -(r5)
  4462: 005245              	inc	-(r5)
  4464: 000000              	halt
  4466: 005215              	inc	(r5)
  4470: 000277              	scc
  4472: 005000              	clr	r0
  4474: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
  4500: 005700              	tst	r0
  4502: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
  4506: 012704 177777       	mov	$-1, r4
  4512: 010401              	mov	r4, r1
  4514: 004737 017252       	jsr	pc, *$_cc10 <.text+017252>
  4520: 005701              	tst	r1
  4522: 004737 017252       	jsr	pc, *$_cc10 <.text+017252>
  4526: 020401              	cmp	r4, r1
  4530: 001404              	beq	04542 <.text+04542>
  4532: 012745 000127       	mov	$87, -(r5)
  4536: 005245              	inc	-(r5)
  4540: 000000              	halt
  4542: 000263              	se_3
  4544: 010000              	mov	r0, r0
  4546: 004767 012434       	jsr	pc, 017206 <.text+017206>

  4552: 021527 000033       	cmp	(r5), $27
  4556: 001026              	bne	04634 <.text+04634>
  4560: 005215              	inc	(r5)
  4562: 012700 177777       	mov	$-1, r0
  4566: 050002              	bis	r0, r2
  4570: 004737 017252       	jsr	pc, *$_cc10 <.text+017252>
  4574: 020002              	cmp	r0, r2
  4576: 001404              	beq	04610 <.text+04610>
  4600: 012745 000130       	mov	$88, -(r5)
  4604: 005245              	inc	-(r5)
  4606: 000000              	halt
  4610: 022702 000077       	cmp	$63, r2
  4614: 100004              	bpl	04626 <.text+04626>
  4616: 012745 000131       	mov	$89, -(r5)
  4622: 005245              	inc	-(r5)
  4624: 000000              	halt
  4626: 020227 000077       	cmp	r2, $63
  4632: 100404              	bmi	04644 <.text+04644>
  4634: 012745 000132       	mov	$90, -(r5)
  4640: 005245              	inc	-(r5)
  4642: 000000              	halt

  4644: 021527 000034       	cmp	(r5), $28
  4650: 001053              	bne	05000 <.text+05000>
  4652: 005215              	inc	(r5)
  4654: 012703 177777       	mov	$-1, r3
  4660: 012700 000440       	mov	$288, r0
  4664: 012710 125252       	mov	$-21846, (r0)
  4670: 000277              	scc
  4672: 041003              	bic	(r0), r3
  4674: 004737 017102       	jsr	pc, *$_cc1 <.text+017102>
  4700: 031003              	bit	(r0), r3
  4702: 001404              	beq	04714 <.text+04714>
  4704: 012745 000133       	mov	$91, -(r5)
  4710: 005245              	inc	-(r5)
  4712: 000000              	halt
  4714: 032703 052525       	bit	$21845, r3
  4720: 004737 017102       	jsr	pc, *$_cc1 <.text+017102>
  4724: 052703 125252       	bis	$-21846, r3
  4730: 100404              	bmi	04742 <.text+04742>
  4732: 012745 000134       	mov	$92, -(r5)
  4736: 005245              	inc	-(r5)
  4740: 000000              	halt
  4742: 042703 077777       	bic	$32767, r3
  4746: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
  4752: 012700 177777       	mov	$-1, r0
  4756: 030003              	bit	r0, r3
  4760: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
  4764: 000263              	se_3
  4766: 040000              	bic	r0, r0
  4770: 004737 017206       	jsr	pc, *$_cc5 <.text+017206>
  4774: 005700              	tst	r0
  4776: 001404              	beq	05010 <.text+05010>
  5000: 012745 000135       	mov	$93, -(r5)
  5004: 005245              	inc	-(r5)
  5006: 000000              	halt

  5010: 021527 000035       	cmp	(r5), $29
  5014: 001404              	beq	05026 <.text+05026>
  5016: 012745 000136       	mov	$94, -(r5)
  5022: 005245              	inc	-(r5)
  5024: 000000              	halt
  5026: 005215              	inc	(r5)
  5030: 012704 077777       	mov	$32767, r4
  5034: 000261              	.word	177
  5036: 005204              	inc	r4
  5040: 004737 017334       	jsr	pc, *$_cc13 <.text+017334>
  5044: 012704 177776       	mov	$-2, r4
  5050: 005204              	inc	r4
  5052: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
  5056: 005204              	inc	r4
  5060: 004737 017206       	jsr	pc, *$_cc5 <.text+017206>
  5064: 005204              	inc	r4
  5066: 004737 017102       	jsr	pc, *$_cc1 <.text+017102>
  5072: 022704 000001       	cmp	$1, r4
  5076: 001404              	beq	05110 <.text+05110>
  5100: 012745 000137       	mov	$95, -(r5)
  5104: 005245              	inc	-(r5)
  5106: 000000              	halt
  5110: 000261              	.word	177
  5112: 005304              	dec	r4
  5114: 004737 017206       	jsr	pc, *$_cc5 <.text+017206>
  5120: 005304              	dec	r4
  5122: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
  5126: 012704 100000       	mov	$-32768, r4
  5132: 005304              	dec	r4
  5134: 004737 017142       	jsr	pc, *$_cc3 <.text+017142>
  5140: 005304              	dec	r4
  5142: 004737 017102       	jsr	pc, *$_cc1 <.text+017102>

  5146: 021527 000036       	cmp	(r5), $30
  5152: 001404              	beq	05164 <.text+05164>
  5154: 012745 000140       	mov	$96, -(r5)
  5160: 005245              	inc	-(r5)
  5162: 000000              	halt
  5164: 005215              	inc	(r5)
  5166: 012703 125252       	mov	$-21846, r3
  5172: 000277              	scc
  5174: 005103              	com	r3
  5176: 004737 017102       	jsr	pc, *$_cc1 <.text+017102>
  5202: 022703 052525       	cmp	$21845, r3
  5206: 001404              	beq	05220 <.text+05220>
  5210: 012745 000141       	mov	$97, -(r5)
  5214: 005245              	inc	-(r5)
  5216: 000000              	halt
  5220: 000277              	scc
  5222: 005103              	com	r3
  5224: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
  5230: 022703 125252       	cmp	$-21846, r3
  5234: 001404              	beq	05246 <.text+05246>
  5236: 012745 000142       	mov	$98, -(r5)
  5242: 005245              	inc	-(r5)
  5244: 000000              	halt
  5246: 012703 177777       	mov	$-1, r3
  5252: 000277              	scc
  5254: 005103              	com	r3
  5256: 004737 017206       	jsr	pc, *$_cc5 <.text+017206>

  5262: 021527 000037       	cmp	(r5), $31
  5266: 001025              	bne	05342 <.text+05342>
  5270: 005215              	inc	(r5)
  5272: 012700 000001       	mov	$1, r0
  5276: 005400              	neg	r0
  5300: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
  5304: 022700 177777       	cmp	$-1, r0
  5310: 001404              	beq	05322 <.text+05322>
  5312: 012745 000143       	mov	$99, -(r5)
  5316: 005245              	inc	-(r5)
  5320: 000000              	halt
  5322: 012700 100000       	mov	$-32768, r0
  5326: 005400              	neg	r0
  5330: 004737 017334       	jsr	pc, *$_cc13 <.text+017334>
  5334: 022700 100000       	cmp	$-32768, r0
  5340: 001404              	beq	05352 <.text+05352>
  5342: 012745 000144       	mov	$100, -(r5)
  5346: 005245              	inc	-(r5)
  5350: 000000              	halt

  5352: 021527 000040       	cmp	(r5), $32
  5356: 001026              	bne	05434 <.text+05434>
  5360: 005215              	inc	(r5)
  5362: 012701 020000       	mov	$8192, r1
  5366: 000257              	ccc
  5370: 006101              	rol	r1
  5372: 006101              	rol	r1
  5374: 004737 017314       	jsr	pc, *$_cc12 <.text+017314>
  5400: 022701 100000       	cmp	$-32768, r1
  5404: 001404              	beq	05416 <.text+05416>
  5406: 012745 000145       	mov	$101, -(r5)
  5412: 005245              	inc	-(r5)
  5414: 000000              	halt
  5416: 006101              	rol	r1
  5420: 004737 017230       	jsr	pc, *$_cc7 <.text+017230>
  5424: 006101              	rol	r1
  5426: 022701 000001       	cmp	$1, r1
  5432: 001404              	beq	05444 <.text+05444>
  5434: 012745 000146       	mov	$102, -(r5)
  5440: 005245              	inc	-(r5)
  5442: 000000              	halt

  5444: 021527 000041       	cmp	(r5), $33
  5450: 001026              	bne	05526 <.text+05526>
  5452: 005215              	inc	(r5)
  5454: 012702 000004       	mov	$4, r2
  5460: 000257              	ccc
  5462: 006002              	ror	r2
  5464: 006002              	ror	r2
  5466: 022702 000001       	cmp	$1, r2
  5472: 001404              	beq	05504 <.text+05504>
  5474: 012745 000147       	mov	$103, -(r5)
  5500: 005245              	inc	-(r5)
  5502: 000000              	halt
  5504: 006002              	ror	r2
  5506: 004737 017230       	jsr	pc, *$_cc7 <.text+017230>
  5512: 006002              	ror	r2
  5514: 004737 017314       	jsr	pc, *$_cc12 <.text+017314>
  5520: 022702 100000       	cmp	$-32768, r2
  5524: 001404              	beq	05536 <.text+05536>
  5526: 012745 000150       	mov	$104, -(r5)
  5532: 005245              	inc	-(r5)
  5534: 000000              	halt

  5536: 021527 000042       	cmp	(r5), $34
  5542: 001404              	beq	05554 <.text+05554>
  5544: 012745 000151       	mov	$105, -(r5)
  5550: 005245              	inc	-(r5)
  5552: 000000              	halt
  5554: 005215              	inc	(r5)
  5556: 012703 020000       	mov	$8192, r3
  5562: 000257              	ccc
  5564: 006303              	asl	r3
  5566: 006303              	asl	r3
  5570: 004737 017314       	jsr	pc, *$_cc12 <.text+017314>
  5574: 022703 100000       	cmp	$-32768, r3
  5600: 001404              	beq	05612 <.text+05612>
  5602: 012745 000152       	mov	$106, -(r5)
  5606: 005245              	inc	-(r5)
  5610: 000000              	halt
  5612: 006303              	asl	r3
  5614: 004737 017230       	jsr	pc, *$_cc7 <.text+017230>
  5620: 006303              	asl	r3
  5622: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>

  5626: 021527 000043       	cmp	(r5), $35
  5632: 001034              	bne	05724 <.text+05724>
  5634: 005215              	inc	(r5)
  5636: 012704 000004       	mov	$4, r4
  5642: 000257              	ccc
  5644: 006204              	asr	r4
  5646: 006204              	asr	r4
  5650: 022704 000001       	cmp	$1, r4
  5654: 001404              	beq	05666 <.text+05666>
  5656: 012745 000153       	mov	$107, -(r5)
  5662: 005245              	inc	-(r5)
  5664: 000000              	halt
  5666: 006204              	asr	r4
  5670: 004737 017230       	jsr	pc, *$_cc7 <.text+017230>
  5674: 006204              	asr	r4
  5676: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
  5702: 012703 100002       	mov	$-32766, r3
  5706: 006203              	asr	r3
  5710: 006203              	asr	r3
  5712: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
  5716: 022703 160000       	cmp	$-8192, r3
  5722: 001404              	beq	05734 <.text+05734>
  5724: 012745 000154       	mov	$108, -(r5)
  5730: 005245              	inc	-(r5)
  5732: 000000              	halt

  5734: 021527 000044       	cmp	(r5), $36
  5740: 001404              	beq	05752 <.text+05752>
  5742: 012745 000155       	mov	$109, -(r5)
  5746: 005245              	inc	-(r5)
  5750: 000000              	halt
  5752: 005215              	inc	(r5)
  5754: 005000              	clr	r0
  5756: 000257              	ccc
  5760: 005500              	adc	r0
  5762: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
  5766: 000261              	.word	177
  5770: 005500              	adc	r0
  5772: 000261              	.word	177
  5774: 005500              	adc	r0
  5776: 004737 017062       	jsr	pc, *$_cc0 <.text+017062>
  6002: 022700 000002       	cmp	$2, r0
  6006: 001404              	beq	06020 <.text+06020>
  6010: 012745 000156       	mov	$110, -(r5)
  6014: 005245              	inc	-(r5)
  6016: 000000              	halt
  6020: 012700 077777       	mov	$32767, r0
  6024: 000261              	.word	177
  6026: 005500              	adc	r0
  6030: 004737 017314       	jsr	pc, *$_cc12 <.text+017314>
  6034: 022700 100000       	cmp	$-32768, r0
  6040: 001404              	beq	06052 <.text+06052>
  6042: 012745 000157       	mov	$111, -(r5)
  6046: 005245              	inc	-(r5)
  6050: 000000              	halt
  6052: 012700 177777       	mov	$-1, r0
  6056: 000261              	.word	177
  6060: 005500              	adc	r0
  6062: 004737 017206       	jsr	pc, *$_cc5 <.text+017206>

  6066: 021527 000045       	cmp	(r5), $37
  6072: 001404              	beq	06104 <.text+06104>
  6074: 012745 000160       	mov	$112, -(r5)
  6100: 005245              	inc	-(r5)
  6102: 000000              	halt
  6104: 005215              	inc	(r5)
  6106: 012701 000003       	mov	$3, r1
  6112: 000257              	ccc
  6114: 005601              	sbc	r1
  6116: 004737 017062       	jsr	pc, *$_cc0 <.text+017062>
  6122: 022701 000003       	cmp	$3, r1
  6126: 001404              	beq	06140 <.text+06140>
  6130: 012745 000161       	mov	$113, -(r5)
  6134: 005245              	inc	-(r5)
  6136: 000000              	halt
  6140: 000261              	.word	177
  6142: 005601              	sbc	r1
  6144: 000261              	.word	177
  6146: 005601              	sbc	r1
  6150: 004737 017062       	jsr	pc, *$_cc0 <.text+017062>
  6154: 022701 000001       	cmp	$1, r1
  6160: 001404              	beq	06172 <.text+06172>
  6162: 012745 000162       	mov	$114, -(r5)
  6166: 005245              	inc	-(r5)
  6170: 000000              	halt
  6172: 000261              	.word	177
  6174: 005601              	sbc	r1
  6176: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
  6202: 000261              	.word	177
  6204: 005601              	sbc	r1
  6206: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
  6212: 022701 177777       	cmp	$-1, r1
  6216: 001404              	beq	06230 <.text+06230>
  6220: 012745 000163       	mov	$115, -(r5)
  6224: 005245              	inc	-(r5)
  6226: 000000              	halt
  6230: 012701 100000       	mov	$-32768, r1
  6234: 000261              	.word	177
  6236: 005601              	sbc	r1
  6240: 004737 017122       	jsr	pc, *$_cc2 <.text+017122>

  6244: 021527 000046       	cmp	(r5), $38
  6250: 001024              	bne	06322 <.text+06322>
  6252: 005215              	inc	(r5)
  6254: 005002              	clr	r2
  6256: 000277              	scc
  6260: 000254              	cl_c
  6262: 006702              	sxt	r2
  6264: 004737 017206       	jsr	pc, *$_cc5 <.text+017206>
  6270: 005702              	tst	r2
  6272: 001404              	beq	06304 <.text+06304>
  6274: 012745 000164       	mov	$116, -(r5)
  6300: 005245              	inc	-(r5)
  6302: 000000              	halt
  6304: 000273              	se_b
  6306: 006702              	sxt	r2
  6310: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
  6314: 022702 177777       	cmp	$-1, r2
  6320: 001404              	beq	06332 <.text+06332>
  6322: 012745 000165       	mov	$117, -(r5)
  6326: 005245              	inc	-(r5)
  6330: 000000              	halt

  6332: 021527 000047       	cmp	(r5), $39
  6336: 001031              	bne	06422 <.text+06422>
  6340: 005215              	inc	(r5)
  6342: 012703 125125       	mov	$-21931, r3
  6346: 000277              	scc
  6350: 000250              	cln
  6352: 000303              	swab	r3
  6354: 004737 017252       	jsr	pc, *$_cc10 <.text+017252>
  6360: 022703 052652       	cmp	$21930, r3
  6364: 001404              	beq	06376 <.text+06376>
  6366: 012745 000166       	mov	$118, -(r5)
  6372: 005245              	inc	-(r5)
  6374: 000000              	halt
  6376: 012703 000377       	mov	$255, r3
  6402: 000277              	scc
  6404: 000244              	clz
  6406: 000303              	swab	r3
  6410: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
  6414: 022703 177400       	cmp	$-256, r3
  6420: 001404              	beq	06432 <.text+06432>
  6422: 012745 000167       	mov	$119, -(r5)
  6426: 005245              	inc	-(r5)
  6430: 000000              	halt

  6432: 021527 000050       	cmp	(r5), $40
  6436: 001034              	bne	06530 <.text+06530>
  6440: 005215              	inc	(r5)
  6442: 012704 177777       	mov	$-1, r4
  6446: 012703 177777       	mov	$-1, r3
  6452: 000277              	scc
  6454: 074403              	xor	r4, r3
  6456: 004737 017206       	jsr	pc, *$_cc5 <.text+017206>
  6462: 012703 077777       	mov	$32767, r3
  6466: 010400              	mov	r4, r0
  6470: 000263              	se_3
  6472: 000244              	clz
  6474: 074003              	xor	r0, r3
  6476: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
  6502: 012702 125252       	mov	$-21846, r2
  6506: 012704 052525       	mov	$21845, r4
  6512: 000277              	scc
  6514: 074204              	xor	r2, r4
  6516: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
  6522: 022704 177777       	cmp	$-1, r4
  6526: 001404              	beq	06540 <.text+06540>
  6530: 012745 000170       	mov	$120, -(r5)
  6534: 005245              	inc	-(r5)
  6536: 000000              	halt

  6540: 021527 000051       	cmp	(r5), $41
  6544: 001055              	bne	06700 <.text+06700>
  6546: 005215              	inc	(r5)
  6550: 012701 021421       	mov	$8977, r1
  6554: 060101              	add	r1, r1
  6556: 004737 017062       	jsr	pc, *$_cc0 <.text+017062>
  6562: 022701 043042       	cmp	$17954, r1
  6566: 001404              	beq	06600 <.text+06600>
  6570: 012745 000171       	mov	$121, -(r5)
  6574: 005245              	inc	-(r5)
  6576: 000000              	halt
  6600: 012700 156357       	mov	$-8977, r0
  6604: 060000              	add	r0, r0
  6606: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
  6612: 022700 134736       	cmp	$-17954, r0
  6616: 001404              	beq	06630 <.text+06630>
  6620: 012745 000172       	mov	$122, -(r5)
  6624: 005245              	inc	-(r5)
  6626: 000000              	halt
  6630: 012702 100000       	mov	$-32768, r2
  6634: 060202              	add	r2, r2
  6636: 004737 017230       	jsr	pc, *$_cc7 <.text+017230>
  6642: 012704 021421       	mov	$8977, r4
  6646: 012701 156357       	mov	$-8977, r1
  6652: 060401              	add	r4, r1
  6654: 001404              	beq	06666 <.text+06666>
  6656: 012745 000173       	mov	$123, -(r5)
  6662: 005245              	inc	-(r5)
  6664: 000000              	halt
  6666: 005404              	neg	r4
  6670: 012701 021421       	mov	$8977, r1
  6674: 060104              	add	r1, r4
  6676: 001404              	beq	06710 <.text+06710>
  6700: 012745 000174       	mov	$124, -(r5)
  6704: 005245              	inc	-(r5)
  6706: 000000              	halt

  6710: 021527 000052       	cmp	(r5), $42
  6714: 001404              	beq	06726 <.text+06726>
  6716: 012745 000175       	mov	$125, -(r5)
  6722: 005245              	inc	-(r5)
  6724: 000000              	halt
  6726: 005215              	inc	(r5)
  6730: 012702 021421       	mov	$8977, r2
  6734: 012703 156357       	mov	$-8977, r3
  6740: 160203              	sub	r2, r3
  6742: 004737 017252       	jsr	pc, *$_cc10 <.text+017252>
  6746: 022703 134736       	cmp	$-17954, r3
  6752: 001404              	beq	06764 <.text+06764>
  6754: 012745 000176       	mov	$126, -(r5)
  6760: 005245              	inc	-(r5)
  6762: 000000              	halt
  6764: 012703 021421       	mov	$8977, r3
  6770: 010204              	mov	r2, r4
  6772: 160403              	sub	r4, r3
  6774: 001404              	beq	07006 <.text+07006>
  6776: 012745 000177       	mov	$127, -(r5)
  7002: 005245              	inc	-(r5)
  7004: 000000              	halt
  7006: 012703 177777       	mov	$-1, r3
  7012: 012702 077777       	mov	$32767, r2
  7016: 160302              	sub	r3, r2
  7020: 004737 017334       	jsr	pc, *$_cc13 <.text+017334>
  7024: 022702 100000       	cmp	$-32768, r2
  7030: 001404              	beq	07042 <.text+07042>
  7032: 012745 000200       	mov	$128, -(r5)
  7036: 005245              	inc	-(r5)
  7040: 000000              	halt
  7042: 012704 177777       	mov	$-1, r4
  7046: 160304              	sub	r3, r4
  7050: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>

  7054: 021527 000053       	cmp	(r5), $43
  7060: 001032              	bne	07146 <.text+07146>
  7062: 005215              	inc	(r5)
  7064: 012701 177777       	mov	$-1, r1
  7070: 005000              	clr	r0
  7072: 106400              	mtps	r0
  7074: 004737 017062       	jsr	pc, *$_cc0 <.text+017062>
  7100: 106701              	mfps	r1
  7102: 001404              	beq	07114 <.text+07114>
  7104: 012745 000201       	mov	$129, -(r5)
  7110: 005245              	inc	-(r5)
  7112: 000000              	halt
  7114: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
  7120: 012700 000377       	mov	$255, r0
  7124: 106400              	mtps	r0
  7126: 004737 017354       	jsr	pc, *$_cc17 <.text+017354>
  7132: 106701              	mfps	r1
  7134: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
  7140: 022701 177757       	cmp	$-17, r1
  7144: 001404              	beq	07156 <.text+07156>
  7146: 012745 000202       	mov	$130, -(r5)
  7152: 005245              	inc	-(r5)
  7154: 000000              	halt

  7156: 021527 000054       	cmp	(r5), $44
  7162: 001063              	bne	07332 <.text+07332>
  7164: 005215              	inc	(r5)
  7166: 112700 000252       	movb	$170, r0
  7172: 110001              	movb	r0, r1
  7174: 110102              	movb	r1, r2
  7176: 122702 000252       	cmpb	$170, r2
  7202: 001404              	beq	07214 <.text+07214>
  7204: 012745 000203       	mov	$131, -(r5)
  7210: 005245              	inc	-(r5)
  7212: 000000              	halt
  7214: 012700 125252       	mov	$-21846, r0
  7220: 010001              	mov	r0, r1
  7222: 010102              	mov	r1, r2
  7224: 022702 125252       	cmp	$-21846, r2
  7230: 001404              	beq	07242 <.text+07242>
  7232: 012745 000204       	mov	$132, -(r5)
  7236: 005245              	inc	-(r5)
  7240: 000000              	halt
  7242: 012700 000440       	mov	$288, r0
  7246: 012701 000442       	mov	$290, r1
  7252: 012702 000444       	mov	$292, r2
  7256: 005067 171162       	clr	$0444 <.text+0444>
  7262: 112710 000125       	movb	$85, (r0)
  7266: 111011              	movb	(r0), (r1)
  7270: 111112              	movb	(r1), (r2)
  7272: 122767 000125 171144	cmpb	$85, $0444 <.text+0444>
  7300: 001404              	beq	07312 <.text+07312>
  7302: 012745 000205       	mov	$133, -(r5)
  7306: 005245              	inc	-(r5)
  7310: 000000              	halt
  7312: 012710 052525       	mov	$21845, (r0)
  7316: 011011              	mov	(r0), (r1)
  7320: 011112              	mov	(r1), (r2)
  7322: 022767 052525 171114	cmp	$21845, $0444 <.text+0444>
  7330: 001404              	beq	07342 <.text+07342>
  7332: 012745 000206       	mov	$134, -(r5)
  7336: 005245              	inc	-(r5)
  7340: 000000              	halt

  7342: 021527 000055       	cmp	(r5), $45
  7346: 001050              	bne	07470 <.text+07470>
  7350: 005215              	inc	(r5)
  7352: 012700 000440       	mov	$288, r0
  7356: 012701 000442       	mov	$290, r1
  7362: 012702 000444       	mov	$292, r2
  7366: 105022              	clrb	(r2)+
  7370: 112710 000252       	movb	$170, (r0)
  7374: 112021              	movb	(r0)+, (r1)+
  7376: 105201              	incb	r1
  7400: 111167 171034       	movb	(r1), $0440 <.text+0440>
  7404: 105200              	incb	r0
  7406: 112021              	movb	(r0)+, (r1)+
  7410: 124227 000252       	cmpb	-(r2), $170
  7414: 001003              	bne	07424 <.text+07424>
  7416: 105767 171016       	tstb	$0440 <.text+0440>
  7422: 001404              	beq	07434 <.text+07434>
  7424: 012745 000207       	mov	$135, -(r5)
  7430: 005245              	inc	-(r5)
  7432: 000000              	halt
  7434: 005741              	tst	-(r1)
  7436: 005022              	clr	(r2)+
  7440: 012740 125252       	mov	$-21846, -(r0)
  7444: 012020              	mov	(r0)+, (r0)+
  7446: 011067 170766       	mov	(r0), $0440 <.text+0440>
  7452: 012121              	mov	(r1)+, (r1)+
  7454: 024227 125252       	cmp	-(r2), $-21846
  7460: 001003              	bne	07470 <.text+07470>
  7462: 005767 170752       	tst	$0440 <.text+0440>
  7466: 001404              	beq	07500 <.text+07500>
  7470: 012745 000210       	mov	$136, -(r5)
  7474: 005245              	inc	-(r5)
  7476: 000000              	halt

  7500: 021527 000056       	cmp	(r5), $46
  7504: 001066              	bne	07662 <.text+07662>
  7506: 005215              	inc	(r5)
  7510: 012767 000440 170712	mov	$288, $0430 <.text+0430>
  7516: 012767 000442 170706	mov	$290, $0432 <.text+0432>
  7524: 012767 000444 170702	mov	$292, $0434 <.text+0434>
  7532: 012700 000430       	mov	$280, r0
  7536: 012701 000432       	mov	$282, r1
  7542: 105067 170676       	clrb	$0444 <.text+0444>
  7546: 112767 000125 170664	movb	$85, $0440 <.text+0440>
  7554: 113031              	movb	*(r0)+, *(r1)+
  7556: 113167 170656       	movb	*(r1)+, $0440 <.text+0440>
  7562: 113030              	movb	*(r0)+, *(r0)+
  7564: 122767 000125 170652	cmpb	$85, $0444 <.text+0444>
  7572: 001003              	bne	07602 <.text+07602>
  7574: 105767 170640       	tstb	$0440 <.text+0440>
  7600: 001404              	beq	07612 <.text+07612>
  7602: 012745 000211       	mov	$137, -(r5)
  7606: 005245              	inc	-(r5)
  7610: 000000              	halt
  7612: 005067 170626       	clr	$0444 <.text+0444>
  7616: 012767 052525 170614	mov	$21845, $0440 <.text+0440>
  7624: 012700 000430       	mov	$280, r0
  7630: 012701 000432       	mov	$282, r1
  7634: 013030              	mov	*(r0)+, *(r0)+
  7636: 013067 170576       	mov	*(r0)+, $0440 <.text+0440>
  7642: 013131              	mov	*(r1)+, *(r1)+
  7644: 022767 052525 170572	cmp	$21845, $0444 <.text+0444>
  7652: 001003              	bne	07662 <.text+07662>
  7654: 005767 170560       	tst	$0440 <.text+0440>
  7660: 001404              	beq	07672 <.text+07672>
  7662: 012745 000212       	mov	$138, -(r5)
  7666: 005245              	inc	-(r5)
  7670: 000000              	halt

  7672: 021527 000057       	cmp	(r5), $47
  7676: 001120              	bne	010140 <.text+010140>
  7700: 005215              	inc	(r5)
  7702: 105067 170532       	clrb	$0440 <.text+0440>
  7706: 012700 000440       	mov	$288, r0
  7712: 012701 000442       	mov	$290, r1
  7716: 012702 000444       	mov	$292, r2
  7722: 005202              	inc	r2
  7724: 021267 170515       	cmp	(r2), $0445 <.text+0445>
  7730: 001404              	beq	07742 <.text+07742>
  7732: 012745 000213       	mov	$139, -(r5)
  7736: 005245              	inc	-(r5)
  7740: 000000              	halt
  7742: 112742 000252       	movb	$170, -(r2)
  7746: 005201              	inc	r1
  7750: 005202              	inc	r2
  7752: 114241              	movb	-(r2), -(r1)
  7754: 005200              	inc	r0
  7756: 005202              	inc	r2
  7760: 114042              	movb	-(r0), -(r2)
  7762: 105200              	incb	r0
  7764: 021067 170451       	cmp	(r0), $0441 <.text+0441>
  7770: 001404              	beq	010002 <.text+010002>
  7772: 012745 000214       	mov	$140, -(r5)
  7776: 005245              	inc	-(r5)
 10000: 000000              	halt
 10002: 105201              	incb	r1
 10004: 114140              	movb	-(r1), -(r0)
 10006: 122767 000252 170424	cmpb	$170, $0440 <.text+0440>
 10014: 001003              	bne	010024 <.text+010024>
 10016: 105767 170422       	tstb	$0444 <.text+0444>
 10022: 001404              	beq	010034 <.text+010034>
 10024: 012745 000215       	mov	$141, -(r5)
 10030: 005245              	inc	-(r5)
 10032: 000000              	halt
 10034: 005067 170400       	clr	$0440 <.text+0440>
 10040: 012700 000440       	mov	$288, r0
 10044: 012701 000442       	mov	$290, r1
 10050: 012702 000444       	mov	$292, r2
 10054: 005722              	tst	(r2)+
 10056: 021267 170364       	cmp	(r2), tps
 10062: 001404              	beq	010074 <.text+010074>
 10064: 012745 000216       	mov	$142, -(r5)
 10070: 005245              	inc	-(r5)
 10072: 000000              	halt
 10074: 012742 125252       	mov	$-21846, -(r2)
 10100: 005721              	tst	(r1)+
 10102: 005722              	tst	(r2)+
 10104: 014241              	mov	-(r2), -(r1)
 10106: 005720              	tst	(r0)+
 10110: 005722              	tst	(r2)+
 10112: 014042              	mov	-(r0), -(r2)
 10114: 005720              	tst	(r0)+
 10116: 005721              	tst	(r1)+
 10120: 014140              	mov	-(r1), -(r0)
 10122: 022767 125252 170310	cmp	$-21846, $0440 <.text+0440>
 10130: 001003              	bne	010140 <.text+010140>
 10132: 005767 170306       	tst	$0444 <.text+0444>
 10136: 001404              	beq	010150 <.text+010150>
 10140: 012745 000217       	mov	$143, -(r5)
 10144: 005245              	inc	-(r5)
 10146: 000000              	halt

 10150: 021527 000060       	cmp	(r5), $48
 10154: 001105              	bne	010370 <.text+010370>
 10156: 005215              	inc	(r5)
 10160: 105067 170254       	clrb	$0440 <.text+0440>
 10164: 012767 000440 170236	mov	$288, $0430 <.text+0430>
 10172: 012767 000442 170232	mov	$290, $0432 <.text+0432>
 10200: 012767 000444 170226	mov	$292, $0434 <.text+0434>
 10206: 012700 000430       	mov	$280, r0
 10212: 012701 000432       	mov	$282, r1
 10216: 012702 000434       	mov	$284, r2
 10222: 005722              	tst	(r2)+
 10224: 112752 000125       	movb	$85, *-(r2)
 10230: 022122              	cmp	(r1)+, (r2)+
 10232: 115251              	movb	*-(r2), *-(r1)
 10234: 022022              	cmp	(r0)+, (r2)+
 10236: 115052              	movb	*-(r0), *-(r2)
 10240: 022022              	cmp	(r0)+, (r2)+
 10242: 125052              	cmpb	*-(r0), *-(r2)
 10244: 001404              	beq	010256 <.text+010256>
 10246: 012745 000220       	mov	$144, -(r5)
 10252: 005245              	inc	-(r5)
 10254: 000000              	halt
 10256: 022120              	cmp	(r1)+, (r0)+
 10260: 115150              	movb	*-(r1), *-(r0)
 10262: 122767 000125 170150	cmpb	$85, $0440 <.text+0440>
 10270: 001003              	bne	010300 <.text+010300>
 10272: 105767 170146       	tstb	$0444 <.text+0444>
 10276: 001404              	beq	010310 <.text+010310>
 10300: 012745 000221       	mov	$145, -(r5)
 10304: 005245              	inc	-(r5)
 10306: 000000              	halt
 10310: 005067 170124       	clr	$0440 <.text+0440>
 10314: 012700 000430       	mov	$280, r0
 10320: 012701 000432       	mov	$282, r1
 10324: 012702 000434       	mov	$284, r2
 10330: 005722              	tst	(r2)+
 10332: 012752 052525       	mov	$21845, *-(r2)
 10336: 022122              	cmp	(r1)+, (r2)+
 10340: 015251              	mov	*-(r2), *-(r1)
 10342: 022022              	cmp	(r0)+, (r2)+
 10344: 015052              	mov	*-(r0), *-(r2)
 10346: 022021              	cmp	(r0)+, (r1)+
 10350: 015150              	mov	*-(r1), *-(r0)
 10352: 022767 052525 170060	cmp	$21845, $0440 <.text+0440>
 10360: 001003              	bne	010370 <.text+010370>
 10362: 005767 170056       	tst	$0444 <.text+0444>
 10366: 001404              	beq	010400 <.text+010400>
 10370: 012745 000222       	mov	$146, -(r5)
 10374: 005245              	inc	-(r5)
 10376: 000000              	halt

 10400: 021527 000061       	cmp	(r5), $49
 10404: 001055              	bne	010540 <.text+010540>
 10406: 005215              	inc	(r5)
 10410: 005067 170030       	clr	$0444 <.text+0444>
 10414: 012700 000440       	mov	$288, r0
 10420: 012701 000442       	mov	$290, r1
 10424: 012702 000444       	mov	$292, r2
 10430: 112760 000252 000000	movb	$170, 0(r0)
 10436: 112760 000252 000001	movb	$170, 1(r0)
 10444: 022767 125252 167766	cmp	$-21846, $0440 <.text+0440>
 10452: 001012              	bne	010500 <.text+010500>
 10454: 116062 000001 000000	movb	1(r0), 0(r2)
 10462: 116160 000002 000005	movb	2(r1), 5(r0)
 10470: 022767 125252 167746	cmp	$-21846, $0444 <.text+0444>
 10476: 001404              	beq	010510 <.text+010510>
 10500: 012745 000223       	mov	$147, -(r5)
 10504: 005245              	inc	-(r5)
 10506: 000000              	halt
 10510: 005067 167726       	clr	$0442 <.text+0442>
 10514: 012760 052525 000000	mov	$21845, 0(r0)
 10522: 016260 177774 000002	mov	-4(r2), 2(r0)
 10530: 022767 052525 167704	cmp	$21845, $0442 <.text+0442>
 10536: 001404              	beq	010550 <.text+010550>
 10540: 012745 000224       	mov	$148, -(r5)
 10544: 005245              	inc	-(r5)
 10546: 000000              	halt

 10550: 021527 000062       	cmp	(r5), $50
 10554: 001052              	bne	010702 <.text+010702>
 10556: 005215              	inc	(r5)
 10560: 005067 167656       	clr	$0442 <.text+0442>
 10564: 012767 000440 167636	mov	$288, $0430 <.text+0430>
 10572: 012767 000442 167632	mov	$290, $0432 <.text+0432>
 10600: 012767 000444 167626	mov	$292, $0434 <.text+0434>
 10606: 012700 000430       	mov	$280, r0
 10612: 012701 000432       	mov	$282, r1
 10616: 012702 000434       	mov	$284, r2
 10622: 112770 000252 000000	movb	$170, *0(r0)
 10630: 117270 177774 000002	movb	*-4(r2), *2(r0)
 10636: 122767 000252 167576	cmpb	$170, $0442 <.text+0442>
 10644: 001404              	beq	010656 <.text+010656>
 10646: 012745 000225       	mov	$149, -(r5)
 10652: 005245              	inc	-(r5)
 10654: 000000              	halt
 10656: 012770 125252 000000	mov	$-21846, *0(r0)
 10664: 017270 177774 000002	mov	*-4(r2), *2(r0)
 10672: 022767 125252 167542	cmp	$-21846, $0442 <.text+0442>
 10700: 001404              	beq	010712 <.text+010712>
 10702: 012745 000226       	mov	$150, -(r5)
 10706: 005245              	inc	-(r5)
 10710: 000000              	halt

 10712: 021527 000063       	cmp	(r5), $51
 10716: 001042              	bne	011024 <.text+011024>
 10720: 005215              	inc	(r5)
 10722: 012700 000440       	mov	$288, r0
 10726: 012701 000442       	mov	$290, r1
 10732: 000277              	scc
 10734: 105010              	clrb	(r0)
 10736: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
 10742: 105710              	tstb	(r0)
 10744: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
 10750: 112711 000377       	movb	$255, (r1)
 10754: 004737 017252       	jsr	pc, *$_cc10 <.text+017252>
 10760: 105711              	tstb	(r1)
 10762: 004737 017252       	jsr	pc, *$_cc10 <.text+017252>
 10766: 010002              	mov	r0, r2
 10770: 112762 000200 000000	movb	$128, 0(r2)
 10776: 112241              	movb	(r2)+, -(r1)
 11000: 026127 177777 100200	cmp	-1(r1), $-32640
 11006: 001404              	beq	011020 <.text+011020>
 11010: 012745 000227       	mov	$151, -(r5)
 11014: 005245              	inc	-(r5)
 11016: 000000              	halt
 11020: 020102              	cmp	r1, r2
 11022: 001404              	beq	011034 <.text+011034>
 11024: 012745 000230       	mov	$152, -(r5)
 11030: 005245              	inc	-(r5)
 11032: 000000              	halt

 11034: 021527 000064       	cmp	(r5), $52
 11040: 001032              	bne	011126 <.text+011126>
 11042: 005215              	inc	(r5)
 11044: 012701 000444       	mov	$292, r1
 11050: 012702 000440       	mov	$288, r2
 11054: 012711 000077       	mov	$63, (r1)
 11060: 112704 000377       	movb	$255, r4
 11064: 150412              	bisb	r4, (r2)
 11066: 004737 017252       	jsr	pc, *$_cc10 <.text+017252>
 11072: 120412              	cmpb	r4, (r2)
 11074: 001404              	beq	011106 <.text+011106>
 11076: 012745 000231       	mov	$153, -(r5)
 11102: 005245              	inc	-(r5)
 11104: 000000              	halt
 11106: 121112              	cmpb	(r1), (r2)
 11110: 100004              	bpl	011122 <.text+011122>
 11112: 012745 000232       	mov	$154, -(r5)
 11116: 005245              	inc	-(r5)
 11120: 000000              	halt
 11122: 121211              	cmpb	(r2), (r1)
 11124: 100404              	bmi	011136 <.text+011136>
 11126: 012745 000233       	mov	$155, -(r5)
 11132: 005245              	inc	-(r5)
 11134: 000000              	halt

 11136: 021527 000065       	cmp	(r5), $53
 11142: 001404              	beq	011154 <.text+011154>
 11144: 012745 000234       	mov	$156, -(r5)
 11150: 005245              	inc	-(r5)
 11152: 000000              	halt
 11154: 005215              	inc	(r5)
 11156: 012703 000440       	mov	$288, r3
 11162: 112713 000377       	movb	$255, (r3)
 11166: 012700 000442       	mov	$290, r0
 11172: 010001              	mov	r0, r1
 11174: 112721 000252       	movb	$170, (r1)+
 11200: 000277              	scc
 11202: 146013 000000       	bicb	0(r0), (r3)
 11206: 004737 017102       	jsr	pc, *$_cc1 <.text+017102>
 11212: 136113 177777       	bitb	-1(r1), (r3)
 11216: 001404              	beq	011230 <.text+011230>
 11220: 012745 000235       	mov	$157, -(r5)
 11224: 005245              	inc	-(r5)
 11226: 000000              	halt
 11230: 132713 000125       	bitb	$85, (r3)
 11234: 004737 017102       	jsr	pc, *$_cc1 <.text+017102>
 11240: 154113              	bisb	-(r1), (r3)
 11242: 100404              	bmi	011254 <.text+011254>
 11244: 012745 000236       	mov	$158, -(r5)
 11250: 005245              	inc	-(r5)
 11252: 000000              	halt
 11254: 012746 000177       	mov	$127, -(sp)
 11260: 142613              	bicb	(sp)+, (r3)
 11262: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
 11266: 132713 000377       	bitb	$255, (r3)
 11272: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
 11276: 010300              	mov	r3, r0
 11300: 012710 000442       	mov	$290, (r0)
 11304: 012730 000377       	mov	$255, *(r0)+
 11310: 000263              	se_3
 11312: 145070 000000       	bicb	*-(r0), *0(r0)
 11316: 004737 017206       	jsr	pc, *$_cc5 <.text+017206>
 11322: 022027 000442       	cmp	(r0)+, $290
 11326: 001404              	beq	011340 <.text+011340>
 11330: 012745 000237       	mov	$159, -(r5)
 11334: 005245              	inc	-(r5)
 11336: 000000              	halt
 11340: 005750              	tst	*-(r0)
 11342: 001404              	beq	011354 <.text+011354>
 11344: 012745 000240       	mov	$160, -(r5)
 11350: 005245              	inc	-(r5)
 11352: 000000              	halt
 11354: 000257              	ccc
 11356: 141010              	bicb	(r0), (r0)
 11360: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>

 11364: 021527 000066       	cmp	(r5), $54
 11370: 001067              	bne	011550 <.text+011550>
 11372: 005215              	inc	(r5)
 11374: 012704 000440       	mov	$288, r4
 11400: 112714 000177       	movb	$127, (r4)
 11404: 000261              	.word	177
 11406: 105214              	incb	(r4)
 11410: 004737 017334       	jsr	pc, *$_cc13 <.text+017334>
 11414: 012714 000376       	mov	$254, (r4)
 11420: 012700 017272       	mov	$7866, r0
 11424: 105224              	incb	(r4)+
 11426: 004720              	jsr	pc, (r0)+
 11430: 105744              	tstb	-(r4)
 11432: 005746              	tst	-(sp)
 11434: 010426              	mov	r4, (sp)+
 11436: 000241              	clc
 11440: 105256              	incb	*-(sp)
 11442: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
 11446: 123634              	cmpb	*(sp)+, *(r4)+
 11450: 000261              	.word	177
 11452: 105264 177777       	incb	-1(r4)
 11456: 004737 017102       	jsr	pc, *$_cc1 <.text+017102>
 11462: 124427 000001       	cmpb	-(r4), $1
 11466: 001404              	beq	011500 <.text+011500>
 11470: 012745 000241       	mov	$161, -(r5)
 11474: 005245              	inc	-(r5)
 11476: 000000              	halt
 11500: 000261              	.word	177
 11502: 105314              	decb	(r4)
 11504: 004737 017206       	jsr	pc, *$_cc5 <.text+017206>
 11510: 105324              	decb	(r4)+
 11512: 004740              	jsr	pc, -(r0)
 11514: 112764 000200 177777	movb	$128, -1(r4)
 11522: 105344              	decb	-(r4)
 11524: 004760 177650       	jsr	pc, -88(r0)
 11530: 105364 000000       	decb	0(r4)
 11534: 004737 017102       	jsr	pc, *$_cc1 <.text+017102>
 11540: 126427 000000 000176	cmpb	0(r4), $126
 11546: 001404              	beq	011560 <.text+011560>
 11550: 012745 000242       	mov	$162, -(r5)
 11554: 005245              	inc	-(r5)
 11556: 000000              	halt

 11560: 021527 000067       	cmp	(r5), $55
 11564: 001404              	beq	011576 <.text+011576>
 11566: 012745 000243       	mov	$163, -(r5)
 11572: 005245              	inc	-(r5)
 11574: 000000              	halt
 11576: 005215              	inc	(r5)
 11600: 012703 000440       	mov	$288, r3
 11604: 012704 000442       	mov	$290, r4
 11610: 012714 000252       	mov	$170, (r4)
 11614: 112413              	movb	(r4)+, (r3)
 11616: 000277              	scc
 11620: 105113              	comb	(r3)
 11622: 004737 017102       	jsr	pc, *$_cc1 <.text+017102>
 11626: 122713 000125       	cmpb	$85, (r3)
 11632: 001404              	beq	011644 <.text+011644>
 11634: 012745 000244       	mov	$164, -(r5)
 11640: 005245              	inc	-(r5)
 11642: 000000              	halt
 11644: 000277              	scc
 11646: 105113              	comb	(r3)
 11650: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
 11654: 010400              	mov	r4, r0
 11656: 126013 177777       	cmpb	-1(r0), (r3)
 11662: 001404              	beq	011674 <.text+011674>
 11664: 012745 000245       	mov	$165, -(r5)
 11670: 005245              	inc	-(r5)
 11672: 000000              	halt
 11674: 112724 000377       	movb	$255, (r4)+
 11700: 114413              	movb	-(r4), (r3)
 11702: 000277              	scc
 11704: 105113              	comb	(r3)
 11706: 004737 017206       	jsr	pc, *$_cc5 <.text+017206>

 11712: 021527 000070       	cmp	(r5), $56
 11716: 001027              	bne	011776 <.text+011776>
 11720: 005215              	inc	(r5)
 11722: 012700 000440       	mov	$288, r0
 11726: 112710 000001       	movb	$1, (r0)
 11732: 105410              	negb	(r0)
 11734: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
 11740: 122710 000377       	cmpb	$255, (r0)
 11744: 001404              	beq	011756 <.text+011756>
 11746: 012745 000246       	mov	$166, -(r5)
 11752: 005245              	inc	-(r5)
 11754: 000000              	halt
 11756: 012710 000200       	mov	$128, (r0)
 11762: 105410              	negb	(r0)
 11764: 004737 017334       	jsr	pc, *$_cc13 <.text+017334>
 11770: 122710 000200       	cmpb	$128, (r0)
 11774: 001404              	beq	012006 <.text+012006>
 11776: 012745 000247       	mov	$167, -(r5)
 12002: 005245              	inc	-(r5)
 12004: 000000              	halt

 12006: 021527 000071       	cmp	(r5), $57
 12012: 001030              	bne	012074 <.text+012074>
 12014: 005215              	inc	(r5)
 12016: 012701 000442       	mov	$290, r1
 12022: 112711 000040       	movb	$32, (r1)
 12026: 000257              	ccc
 12030: 106111              	rolb	(r1)
 12032: 106111              	rolb	(r1)
 12034: 004737 017314       	jsr	pc, *$_cc12 <.text+017314>
 12040: 122711 000200       	cmpb	$128, (r1)
 12044: 001404              	beq	012056 <.text+012056>
 12046: 012745 000250       	mov	$168, -(r5)
 12052: 005245              	inc	-(r5)
 12054: 000000              	halt
 12056: 106111              	rolb	(r1)
 12060: 004737 017230       	jsr	pc, *$_cc7 <.text+017230>
 12064: 106111              	rolb	(r1)
 12066: 122711 000001       	cmpb	$1, (r1)
 12072: 001404              	beq	012104 <.text+012104>
 12074: 012745 000251       	mov	$169, -(r5)
 12100: 005245              	inc	-(r5)
 12102: 000000              	halt

 12104: 021527 000072       	cmp	(r5), $58
 12110: 001030              	bne	012172 <.text+012172>
 12112: 005215              	inc	(r5)
 12114: 012702 000442       	mov	$290, r2
 12120: 112712 000004       	movb	$4, (r2)
 12124: 000257              	ccc
 12126: 106012              	rorb	(r2)
 12130: 106012              	rorb	(r2)
 12132: 122712 000001       	cmpb	$1, (r2)
 12136: 001404              	beq	012150 <.text+012150>
 12140: 012745 000252       	mov	$170, -(r5)
 12144: 005245              	inc	-(r5)
 12146: 000000              	halt
 12150: 106012              	rorb	(r2)
 12152: 004737 017230       	jsr	pc, *$_cc7 <.text+017230>
 12156: 106012              	rorb	(r2)
 12160: 004737 017314       	jsr	pc, *$_cc12 <.text+017314>
 12164: 122712 000200       	cmpb	$128, (r2)
 12170: 001404              	beq	012202 <.text+012202>
 12172: 012745 000253       	mov	$171, -(r5)
 12176: 005245              	inc	-(r5)
 12200: 000000              	halt

 12202: 021527 000073       	cmp	(r5), $59
 12206: 001404              	beq	012220 <.text+012220>
 12210: 012745 000254       	mov	$172, -(r5)
 12214: 005245              	inc	-(r5)
 12216: 000000              	halt
 12220: 005215              	inc	(r5)
 12222: 012703 000442       	mov	$290, r3
 12226: 112713 000040       	movb	$32, (r3)
 12232: 000257              	ccc
 12234: 106313              	aslb	(r3)
 12236: 106313              	aslb	(r3)
 12240: 004737 017314       	jsr	pc, *$_cc12 <.text+017314>
 12244: 122713 000200       	cmpb	$128, (r3)
 12250: 001404              	beq	012262 <.text+012262>
 12252: 012745 000255       	mov	$173, -(r5)
 12256: 005245              	inc	-(r5)
 12260: 000000              	halt
 12262: 106313              	aslb	(r3)
 12264: 004737 017230       	jsr	pc, *$_cc7 <.text+017230>
 12270: 106313              	aslb	(r3)
 12272: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>

 12276: 021527 000074       	cmp	(r5), $60
 12302: 001040              	bne	012404 <.text+012404>
 12304: 005215              	inc	(r5)
 12306: 012704 000442       	mov	$290, r4
 12312: 012703 000444       	mov	$292, r3
 12316: 112714 000004       	movb	$4, (r4)
 12322: 000257              	ccc
 12324: 106214              	asrb	(r4)
 12326: 106214              	asrb	(r4)
 12330: 122714 000001       	cmpb	$1, (r4)
 12334: 001404              	beq	012346 <.text+012346>
 12336: 012745 000256       	mov	$174, -(r5)
 12342: 005245              	inc	-(r5)
 12344: 000000              	halt
 12346: 106214              	asrb	(r4)
 12350: 004737 017230       	jsr	pc, *$_cc7 <.text+017230>
 12354: 106214              	asrb	(r4)
 12356: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
 12362: 112713 000202       	movb	$130, (r3)
 12366: 106213              	asrb	(r3)
 12370: 106213              	asrb	(r3)
 12372: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
 12376: 122713 000340       	cmpb	$224, (r3)
 12402: 001404              	beq	012414 <.text+012414>
 12404: 012745 000257       	mov	$175, -(r5)
 12410: 005245              	inc	-(r5)
 12412: 000000              	halt

 12414: 021527 000075       	cmp	(r5), $61
 12420: 001404              	beq	012432 <.text+012432>
 12422: 012745 000260       	mov	$176, -(r5)
 12426: 005245              	inc	-(r5)
 12430: 000000              	halt
 12432: 005215              	inc	(r5)
 12434: 012700 000444       	mov	$292, r0
 12440: 105010              	clrb	(r0)
 12442: 000257              	ccc
 12444: 105510              	adcb	(r0)
 12446: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
 12452: 000261              	.word	177
 12454: 105510              	adcb	(r0)
 12456: 000261              	.word	177
 12460: 105510              	adcb	(r0)
 12462: 004737 017062       	jsr	pc, *$_cc0 <.text+017062>
 12466: 122710 000002       	cmpb	$2, (r0)
 12472: 001404              	beq	012504 <.text+012504>
 12474: 012745 000261       	mov	$177, -(r5)
 12500: 005245              	inc	-(r5)
 12502: 000000              	halt
 12504: 112710 000177       	movb	$127, (r0)
 12510: 000261              	.word	177
 12512: 105510              	adcb	(r0)
 12514: 004737 017314       	jsr	pc, *$_cc12 <.text+017314>
 12520: 122710 000200       	cmpb	$128, (r0)
 12524: 001404              	beq	012536 <.text+012536>
 12526: 012745 000262       	mov	$178, -(r5)
 12532: 005245              	inc	-(r5)
 12534: 000000              	halt
 12536: 112710 000377       	movb	$255, (r0)
 12542: 000261              	.word	177
 12544: 105510              	adcb	(r0)
 12546: 004737 017206       	jsr	pc, *$_cc5 <.text+017206>

 12552: 021527 000076       	cmp	(r5), $62
 12556: 001404              	beq	012570 <.text+012570>
 12560: 012745 000263       	mov	$179, -(r5)
 12564: 005245              	inc	-(r5)
 12566: 000000              	halt
 12570: 005215              	inc	(r5)
 12572: 012701 000444       	mov	$292, r1
 12576: 112711 000003       	movb	$3, (r1)
 12602: 000257              	ccc
 12604: 105611              	sbcb	(r1)
 12606: 004737 017062       	jsr	pc, *$_cc0 <.text+017062>
 12612: 122711 000003       	cmpb	$3, (r1)
 12616: 001404              	beq	012630 <.text+012630>
 12620: 012745 000264       	mov	$180, -(r5)
 12624: 005245              	inc	-(r5)
 12626: 000000              	halt
 12630: 000261              	.word	177
 12632: 105611              	sbcb	(r1)
 12634: 000261              	.word	177
 12636: 105611              	sbcb	(r1)
 12640: 004737 017062       	jsr	pc, *$_cc0 <.text+017062>
 12644: 122711 000001       	cmpb	$1, (r1)
 12650: 001404              	beq	012662 <.text+012662>
 12652: 012745 000265       	mov	$181, -(r5)
 12656: 005245              	inc	-(r5)
 12660: 000000              	halt
 12662: 000261              	.word	177
 12664: 105611              	sbcb	(r1)
 12666: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
 12672: 000261              	.word	177
 12674: 105611              	sbcb	(r1)
 12676: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
 12702: 122711 000377       	cmpb	$255, (r1)
 12706: 001404              	beq	012720 <.text+012720>
 12710: 012745 000266       	mov	$182, -(r5)
 12714: 005245              	inc	-(r5)
 12716: 000000              	halt
 12720: 112711 000200       	movb	$128, (r1)
 12724: 000261              	.word	177
 12726: 105611              	sbcb	(r1)
 12730: 004737 017122       	jsr	pc, *$_cc2 <.text+017122>

 12734: 021527 000077       	cmp	(r5), $63
 12740: 001404              	beq	012752 <.text+012752>
 12742: 012745 000267       	mov	$183, -(r5)
 12746: 005245              	inc	-(r5)
 12750: 000000              	halt
 12752: 005215              	inc	(r5)
 12754: 012701 000440       	mov	$288, r1
 12760: 012700 000442       	mov	$290, r0
 12764: 000277              	scc
 12766: 005010              	clr	(r0)
 12770: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
 12774: 005720              	tst	(r0)+
 12776: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
 13002: 010040              	mov	r0, -(r0)
 13004: 012730 177777       	mov	$-1, *(r0)+
 13010: 017011 177776       	mov	*-2(r0), (r1)
 13014: 004737 017252       	jsr	pc, *$_cc10 <.text+017252>
 13020: 005711              	tst	(r1)
 13022: 004737 017252       	jsr	pc, *$_cc10 <.text+017252>

 13026: 021527 000100       	cmp	(r5), $64
 13032: 001113              	bne	013262 <.text+013262>
 13034: 005215              	inc	(r5)
 13036: 012702 000442       	mov	$290, r2
 13042: 012700 000440       	mov	$288, r0
 13046: 012720 177777       	mov	$-1, (r0)+
 13052: 054012              	bis	-(r0), (r2)
 13054: 004737 017252       	jsr	pc, *$_cc10 <.text+017252>
 13060: 022227 177777       	cmp	(r2)+, $-1
 13064: 001404              	beq	013076 <.text+013076>
 13066: 012745 000270       	mov	$184, -(r5)
 13072: 005245              	inc	-(r5)
 13074: 000000              	halt
 13076: 020227 000444       	cmp	r2, $292
 13102: 001404              	beq	013114 <.text+013114>
 13104: 012745 000271       	mov	$185, -(r5)
 13110: 005245              	inc	-(r5)
 13112: 000000              	halt
 13114: 022742 000077       	cmp	$63, -(r2)
 13120: 004737 017102       	jsr	pc, *$_cc1 <.text+017102>
 13124: 022722 077777       	cmp	$32767, (r2)+
 13130: 004737 017334       	jsr	pc, *$_cc13 <.text+017334>
 13134: 024227 077777       	cmp	-(r2), $32767
 13140: 004737 017252       	jsr	pc, *$_cc10 <.text+017252>
 13144: 012767 052525 165272	mov	$21845, $0444 <.text+0444>
 13152: 012767 000444 165262	mov	$292, $0442 <.text+0442>
 13160: 012704 000430       	mov	$280, r4
 13164: 012714 000432       	mov	$282, (r4)
 13170: 012734 125252       	mov	$-21846, *(r4)+
 13174: 057432 177776       	bis	*-2(r4), *(r2)+
 13200: 010200              	mov	r2, r0
 13202: 025027 177777       	cmp	*-(r0), $-1
 13206: 001404              	beq	013220 <.text+013220>
 13210: 012745 000272       	mov	$186, -(r5)
 13214: 005245              	inc	-(r5)
 13216: 000000              	halt
 13220: 020227 000444       	cmp	r2, $292
 13224: 001404              	beq	013236 <.text+013236>
 13226: 012745 000273       	mov	$187, -(r5)
 13232: 005245              	inc	-(r5)
 13234: 000000              	halt
 13236: 005040              	clr	-(r0)
 13240: 010067 165200       	mov	r0, $0444 <.text+0444>
 13244: 022020              	cmp	(r0)+, (r0)+
 13246: 055070 000002       	bis	*-(r0), *2(r0)
 13252: 022767 000440 165160	cmp	$288, $0440 <.text+0440>
 13260: 001404              	beq	013272 <.text+013272>
 13262: 012745 000274       	mov	$188, -(r5)
 13266: 005245              	inc	-(r5)
 13270: 000000              	halt

 13272: 021527 000101       	cmp	(r5), $65
 13276: 001122              	bne	013544 <.text+013544>
 13300: 005215              	inc	(r5)
 13302: 012703 000440       	mov	$288, r3
 13306: 012713 177777       	mov	$-1, (r3)
 13312: 012704 000430       	mov	$280, r4
 13316: 012714 000432       	mov	$282, (r4)
 13322: 011334              	mov	(r3), *(r4)+
 13324: 012700 000442       	mov	$290, r0
 13330: 012710 125252       	mov	$-21846, (r0)
 13334: 000277              	scc
 13336: 042013              	bic	(r0)+, (r3)
 13340: 004737 017102       	jsr	pc, *$_cc1 <.text+017102>
 13344: 034013              	bit	-(r0), (r3)
 13346: 001404              	beq	013360 <.text+013360>
 13350: 012745 000275       	mov	$189, -(r5)
 13354: 005245              	inc	-(r5)
 13356: 000000              	halt
 13360: 032713 052525       	bit	$21845, (r3)
 13364: 004737 017102       	jsr	pc, *$_cc1 <.text+017102>
 13370: 056013 000000       	bis	0(r0), (r3)
 13374: 100404              	bmi	013406 <.text+013406>
 13376: 012745 000276       	mov	$190, -(r5)
 13402: 005245              	inc	-(r5)
 13404: 000000              	halt
 13406: 012720 077777       	mov	$32767, (r0)+
 13412: 010002              	mov	r0, r2
 13414: 046213 177776       	bic	-2(r2), (r3)
 13420: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
 13424: 020027 000444       	cmp	r0, $292
 13430: 001404              	beq	013442 <.text+013442>
 13432: 012745 000277       	mov	$191, -(r5)
 13436: 005245              	inc	-(r5)
 13440: 000000              	halt
 13442: 010020              	mov	r0, (r0)+
 13444: 000263              	se_3
 13446: 045000              	bic	*-(r0), r0
 13450: 004737 017206       	jsr	pc, *$_cc5 <.text+017206>
 13454: 037413 177776       	bit	*-2(r4), (r3)
 13460: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
 13464: 012746 125252       	mov	$-21846, -(sp)
 13470: 017423 177776       	mov	*-2(r4), (r3)+
 13474: 046643 000000       	bic	0(sp), -(r3)
 13500: 022327 052525       	cmp	(r3)+, $21845
 13504: 001404              	beq	013516 <.text+013516>
 13506: 012745 000300       	mov	$192, -(r5)
 13512: 005245              	inc	-(r5)
 13514: 000000              	halt
 13516: 012700 000446       	mov	$294, r0
 13522: 010340              	mov	r3, -(r0)
 13524: 014330              	mov	-(r3), *(r0)+
 13526: 000263              	se_3
 13530: 035026              	bit	*-(r0), (sp)+
 13532: 004737 017206       	jsr	pc, *$_cc5 <.text+017206>
 13536: 020627 000530       	cmp	sp, $start
 13542: 001404              	beq	013554 <.text+013554>
 13544: 012745 000301       	mov	$193, -(r5)
 13550: 005245              	inc	-(r5)
 13552: 000000              	halt

 13554: 021527 000102       	cmp	(r5), $66
 13560: 001404              	beq	013572 <.text+013572>
 13562: 012745 000302       	mov	$194, -(r5)
 13566: 005245              	inc	-(r5)
 13570: 000000              	halt
 13572: 005215              	inc	(r5)
 13574: 012704 000442       	mov	$290, r4
 13600: 012714 077777       	mov	$32767, (r4)
 13604: 000261              	.word	177
 13606: 005214              	inc	(r4)
 13610: 004737 017334       	jsr	pc, *$_cc13 <.text+017334>
 13614: 012714 177776       	mov	$-2, (r4)
 13620: 012700 000440       	mov	$288, r0
 13624: 012710 017272       	mov	$7866, (r0)
 13630: 005214              	inc	(r4)
 13632: 004730              	jsr	pc, *(r0)+
 13634: 005214              	inc	(r4)
 13636: 004737 017206       	jsr	pc, *$_cc5 <.text+017206>
 13642: 005214              	inc	(r4)
 13644: 004737 017102       	jsr	pc, *$_cc1 <.text+017102>
 13650: 026427 000000 000001	cmp	0(r4), $1
 13656: 001404              	beq	013670 <.text+013670>
 13660: 012745 000303       	mov	$195, -(r5)
 13664: 005245              	inc	-(r5)
 13666: 000000              	halt
 13670: 000261              	.word	177
 13672: 005314              	dec	(r4)
 13674: 004737 017206       	jsr	pc, *$_cc5 <.text+017206>
 13700: 005314              	dec	(r4)
 13702: 004770 177776       	jsr	pc, *-2(r0)
 13706: 012714 100000       	mov	$-32768, (r4)
 13712: 005314              	dec	(r4)
 13714: 004737 017142       	jsr	pc, *$_cc3 <.text+017142>
 13720: 005314              	dec	(r4)
 13722: 004737 017102       	jsr	pc, *$_cc1 <.text+017102>

 13726: 021527 000103       	cmp	(r5), $67
 13732: 001404              	beq	013744 <.text+013744>
 13734: 012745 000304       	mov	$196, -(r5)
 13740: 005245              	inc	-(r5)
 13742: 000000              	halt
 13744: 005215              	inc	(r5)
 13746: 012703 000442       	mov	$290, r3
 13752: 012713 125252       	mov	$-21846, (r3)
 13756: 000277              	scc
 13760: 005163 000000       	com	0(r3)
 13764: 004737 017102       	jsr	pc, *$_cc1 <.text+017102>
 13770: 022713 052525       	cmp	$21845, (r3)
 13774: 001404              	beq	014006 <.text+014006>
 13776: 012745 000305       	mov	$197, -(r5)
 14002: 005245              	inc	-(r5)
 14004: 000000              	halt
 14006: 000277              	scc
 14010: 005123              	com	(r3)+
 14012: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
 14016: 022743 125252       	cmp	$-21846, -(r3)
 14022: 001404              	beq	014034 <.text+014034>
 14024: 012745 000306       	mov	$198, -(r5)
 14030: 005245              	inc	-(r5)
 14032: 000000              	halt
 14034: 010300              	mov	r3, r0
 14036: 012710 177777       	mov	$-1, (r0)
 14042: 000277              	scc
 14044: 005110              	com	(r0)
 14046: 004737 017206       	jsr	pc, *$_cc5 <.text+017206>

 14052: 021527 000104       	cmp	(r5), $68
 14056: 001033              	bne	014146 <.text+014146>
 14060: 005215              	inc	(r5)
 14062: 012704 000442       	mov	$290, r4
 14066: 012724 000001       	mov	$1, (r4)+
 14072: 010402              	mov	r4, r2
 14074: 012762 100000 000000	mov	$-32768, 0(r2)
 14102: 005444              	neg	-(r4)
 14104: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
 14110: 022724 177777       	cmp	$-1, (r4)+
 14114: 001404              	beq	014126 <.text+014126>
 14116: 012745 000307       	mov	$199, -(r5)
 14122: 005245              	inc	-(r5)
 14124: 000000              	halt
 14126: 016444 000000       	mov	0(r4), -(r4)
 14132: 005414              	neg	(r4)
 14134: 004737 017334       	jsr	pc, *$_cc13 <.text+017334>
 14140: 026214 000000       	cmp	0(r2), (r4)
 14144: 001404              	beq	014156 <.text+014156>
 14146: 012745 000310       	mov	$200, -(r5)
 14152: 005245              	inc	-(r5)
 14154: 000000              	halt

 14156: 021527 000105       	cmp	(r5), $69
 14162: 001032              	bne	014250 <.text+014250>
 14164: 005215              	inc	(r5)
 14166: 012701 000444       	mov	$292, r1
 14172: 012711 020000       	mov	$8192, (r1)
 14176: 000257              	ccc
 14200: 006121              	rol	(r1)+
 14202: 006141              	rol	-(r1)
 14204: 004737 017314       	jsr	pc, *$_cc12 <.text+017314>
 14210: 022711 100000       	cmp	$-32768, (r1)
 14214: 001404              	beq	014226 <.text+014226>
 14216: 012745 000311       	mov	$201, -(r5)
 14222: 005245              	inc	-(r5)
 14224: 000000              	halt
 14226: 006161 000000       	rol	0(r1)
 14232: 004737 017230       	jsr	pc, *$_cc7 <.text+017230>
 14236: 010102              	mov	r1, r2
 14240: 006112              	rol	(r2)
 14242: 022711 000001       	cmp	$1, (r1)
 14246: 001404              	beq	014260 <.text+014260>
 14250: 012745 000312       	mov	$202, -(r5)
 14254: 005245              	inc	-(r5)
 14256: 000000              	halt

 14260: 021527 000106       	cmp	(r5), $70
 14264: 001030              	bne	014346 <.text+014346>
 14266: 005215              	inc	(r5)
 14270: 012702 000444       	mov	$292, r2
 14274: 012712 000004       	mov	$4, (r2)
 14300: 000257              	ccc
 14302: 006012              	ror	(r2)
 14304: 006012              	ror	(r2)
 14306: 022712 000001       	cmp	$1, (r2)
 14312: 001404              	beq	014324 <.text+014324>
 14314: 012745 000313       	mov	$203, -(r5)
 14320: 005245              	inc	-(r5)
 14322: 000000              	halt
 14324: 006012              	ror	(r2)
 14326: 004737 017230       	jsr	pc, *$_cc7 <.text+017230>
 14332: 006012              	ror	(r2)
 14334: 004737 017314       	jsr	pc, *$_cc12 <.text+017314>
 14340: 022712 100000       	cmp	$-32768, (r2)
 14344: 001404              	beq	014356 <.text+014356>
 14346: 012745 000314       	mov	$204, -(r5)
 14352: 005245              	inc	-(r5)
 14354: 000000              	halt

 14356: 021527 000107       	cmp	(r5), $71
 14362: 001404              	beq	014374 <.text+014374>
 14364: 012745 000315       	mov	$205, -(r5)
 14370: 005245              	inc	-(r5)
 14372: 000000              	halt
 14374: 005215              	inc	(r5)
 14376: 012703 000444       	mov	$292, r3
 14402: 012713 020000       	mov	$8192, (r3)
 14406: 000257              	ccc
 14410: 006313              	asl	(r3)
 14412: 006313              	asl	(r3)
 14414: 004737 017314       	jsr	pc, *$_cc12 <.text+017314>
 14420: 022713 100000       	cmp	$-32768, (r3)
 14424: 001404              	beq	014436 <.text+014436>
 14426: 012745 000316       	mov	$206, -(r5)
 14432: 005245              	inc	-(r5)
 14434: 000000              	halt
 14436: 006313              	asl	(r3)
 14440: 004737 017230       	jsr	pc, *$_cc7 <.text+017230>
 14444: 006313              	asl	(r3)
 14446: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>

 14452: 021527 000110       	cmp	(r5), $72
 14456: 001040              	bne	014560 <.text+014560>
 14460: 005215              	inc	(r5)
 14462: 012704 000444       	mov	$292, r4
 14466: 012703 000440       	mov	$288, r3
 14472: 012714 000004       	mov	$4, (r4)
 14476: 000257              	ccc
 14500: 006214              	asr	(r4)
 14502: 006214              	asr	(r4)
 14504: 022714 000001       	cmp	$1, (r4)
 14510: 001404              	beq	014522 <.text+014522>
 14512: 012745 000317       	mov	$207, -(r5)
 14516: 005245              	inc	-(r5)
 14520: 000000              	halt
 14522: 006214              	asr	(r4)
 14524: 004737 017230       	jsr	pc, *$_cc7 <.text+017230>
 14530: 006214              	asr	(r4)
 14532: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
 14536: 012713 100002       	mov	$-32766, (r3)
 14542: 006213              	asr	(r3)
 14544: 006213              	asr	(r3)
 14546: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
 14552: 022713 160000       	cmp	$-8192, (r3)
 14556: 001404              	beq	014570 <.text+014570>
 14560: 012745 000320       	mov	$208, -(r5)
 14564: 005245              	inc	-(r5)
 14566: 000000              	halt

 14570: 021527 000111       	cmp	(r5), $73
 14574: 001404              	beq	014606 <.text+014606>
 14576: 012745 000321       	mov	$209, -(r5)
 14602: 005245              	inc	-(r5)
 14604: 000000              	halt
 14606: 005215              	inc	(r5)
 14610: 012700 000440       	mov	$288, r0
 14614: 005010              	clr	(r0)
 14616: 000257              	ccc
 14620: 005510              	adc	(r0)
 14622: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
 14626: 000261              	.word	177
 14630: 005510              	adc	(r0)
 14632: 000261              	.word	177
 14634: 005510              	adc	(r0)
 14636: 004737 017062       	jsr	pc, *$_cc0 <.text+017062>
 14642: 022710 000002       	cmp	$2, (r0)
 14646: 001404              	beq	014660 <.text+014660>
 14650: 012745 000322       	mov	$210, -(r5)
 14654: 005245              	inc	-(r5)
 14656: 000000              	halt
 14660: 012710 077777       	mov	$32767, (r0)
 14664: 000261              	.word	177
 14666: 005510              	adc	(r0)
 14670: 004737 017314       	jsr	pc, *$_cc12 <.text+017314>
 14674: 022710 100000       	cmp	$-32768, (r0)
 14700: 001404              	beq	014712 <.text+014712>
 14702: 012745 000323       	mov	$211, -(r5)
 14706: 005245              	inc	-(r5)
 14710: 000000              	halt
 14712: 012710 177777       	mov	$-1, (r0)
 14716: 000261              	.word	177
 14720: 005510              	adc	(r0)
 14722: 004737 017206       	jsr	pc, *$_cc5 <.text+017206>

 14726: 021527 000112       	cmp	(r5), $74
 14732: 001404              	beq	014744 <.text+014744>
 14734: 012745 000324       	mov	$212, -(r5)
 14740: 005245              	inc	-(r5)
 14742: 000000              	halt
 14744: 005215              	inc	(r5)
 14746: 012701 000440       	mov	$288, r1
 14752: 012711 000003       	mov	$3, (r1)
 14756: 000257              	ccc
 14760: 005611              	sbc	(r1)
 14762: 004737 017062       	jsr	pc, *$_cc0 <.text+017062>
 14766: 022711 000003       	cmp	$3, (r1)
 14772: 001404              	beq	015004 <.text+015004>
 14774: 012745 000325       	mov	$213, -(r5)
 15000: 005245              	inc	-(r5)
 15002: 000000              	halt
 15004: 000261              	.word	177
 15006: 005611              	sbc	(r1)
 15010: 000261              	.word	177
 15012: 005611              	sbc	(r1)
 15014: 004737 017062       	jsr	pc, *$_cc0 <.text+017062>
 15020: 022711 000001       	cmp	$1, (r1)
 15024: 001404              	beq	015036 <.text+015036>
 15026: 012745 000326       	mov	$214, -(r5)
 15032: 005245              	inc	-(r5)
 15034: 000000              	halt
 15036: 000261              	.word	177
 15040: 005611              	sbc	(r1)
 15042: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
 15046: 000261              	.word	177
 15050: 005611              	sbc	(r1)
 15052: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
 15056: 022711 177777       	cmp	$-1, (r1)
 15062: 001404              	beq	015074 <.text+015074>
 15064: 012745 000327       	mov	$215, -(r5)
 15070: 005245              	inc	-(r5)
 15072: 000000              	halt
 15074: 012711 100000       	mov	$-32768, (r1)
 15100: 000261              	.word	177
 15102: 005611              	sbc	(r1)
 15104: 004737 017122       	jsr	pc, *$_cc2 <.text+017122>

 15110: 021527 000113       	cmp	(r5), $75
 15114: 001026              	bne	015172 <.text+015172>
 15116: 005215              	inc	(r5)
 15120: 012702 000442       	mov	$290, r2
 15124: 005012              	clr	(r2)
 15126: 000277              	scc
 15130: 000254              	cl_c
 15132: 006712              	sxt	(r2)
 15134: 004737 017206       	jsr	pc, *$_cc5 <.text+017206>
 15140: 005712              	tst	(r2)
 15142: 001404              	beq	015154 <.text+015154>
 15144: 012745 000330       	mov	$216, -(r5)
 15150: 005245              	inc	-(r5)
 15152: 000000              	halt
 15154: 000273              	se_b
 15156: 006712              	sxt	(r2)
 15160: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
 15164: 022712 177777       	cmp	$-1, (r2)
 15170: 001404              	beq	015202 <.text+015202>
 15172: 012745 000331       	mov	$217, -(r5)
 15176: 005245              	inc	-(r5)
 15200: 000000              	halt

 15202: 021527 000114       	cmp	(r5), $76
 15206: 001034              	bne	015300 <.text+015300>
 15210: 005215              	inc	(r5)
 15212: 012703 000444       	mov	$292, r3
 15216: 012713 125125       	mov	$-21931, (r3)
 15222: 000277              	scc
 15224: 000250              	cln
 15226: 000313              	swab	(r3)
 15230: 004737 017252       	jsr	pc, *$_cc10 <.text+017252>
 15234: 022713 052652       	cmp	$21930, (r3)
 15240: 001404              	beq	015252 <.text+015252>
 15242: 012745 000332       	mov	$218, -(r5)
 15246: 005245              	inc	-(r5)
 15250: 000000              	halt
 15252: 012713 000377       	mov	$255, (r3)
 15256: 000277              	scc
 15260: 000244              	clz
 15262: 000363 000000       	swab	0(r3)
 15266: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
 15272: 022713 177400       	cmp	$-256, (r3)
 15276: 001404              	beq	015310 <.text+015310>
 15300: 012745 000333       	mov	$219, -(r5)
 15304: 005245              	inc	-(r5)
 15306: 000000              	halt

 15310: 021527 000115       	cmp	(r5), $77
 15314: 001041              	bne	015420 <.text+015420>
 15316: 005215              	inc	(r5)
 15320: 012704 177777       	mov	$-1, r4
 15324: 012767 177777 163110	mov	$-1, $0442 <.text+0442>
 15332: 000277              	scc
 15334: 074467 163102       	xor	r4, $0442 <.text+0442>
 15340: 004737 017206       	jsr	pc, *$_cc5 <.text+017206>
 15344: 012767 077777 163070	mov	$32767, $0442 <.text+0442>
 15352: 012700 000442       	mov	$290, r0
 15356: 000263              	se_3
 15360: 000244              	clz
 15362: 074410              	xor	r4, (r0)
 15364: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
 15370: 012701 125252       	mov	$-21846, r1
 15374: 012720 052525       	mov	$21845, (r0)+
 15400: 000277              	scc
 15402: 074140              	xor	r1, -(r0)
 15404: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
 15410: 022737 177777 000442	cmp	$-1, *$290
 15416: 001404              	beq	015430 <.text+015430>
 15420: 012745 000334       	mov	$220, -(r5)
 15424: 005245              	inc	-(r5)
 15426: 000000              	halt

 15430: 021527 000116       	cmp	(r5), $78
 15434: 001133              	bne	015724 <.text+015724>
 15436: 005215              	inc	(r5)
 15440: 012700 000444       	mov	$292, r0
 15444: 012701 000440       	mov	$288, r1
 15450: 012767 021421 162766	mov	$8977, $0444 <.text+0444>
 15456: 011011              	mov	(r0), (r1)
 15460: 061011              	add	(r0), (r1)
 15462: 004737 017062       	jsr	pc, *$_cc0 <.text+017062>
 15466: 022767 043042 162744	cmp	$17954, $0440 <.text+0440>
 15474: 001404              	beq	015506 <.text+015506>
 15476: 012745 000335       	mov	$221, -(r5)
 15502: 005245              	inc	-(r5)
 15504: 000000              	halt
 15506: 005010              	clr	(r0)
 15510: 060020              	add	r0, (r0)+
 15512: 024027 000444       	cmp	-(r0), $292
 15516: 001404              	beq	015530 <.text+015530>
 15520: 012745 000336       	mov	$222, -(r5)
 15524: 005245              	inc	-(r5)
 15526: 000000              	halt
 15530: 012767 156357 162706	mov	$-8977, $0444 <.text+0444>
 15536: 012011              	mov	(r0)+, (r1)
 15540: 064011              	add	-(r0), (r1)
 15542: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
 15546: 022767 134736 162664	cmp	$-17954, $0440 <.text+0440>
 15554: 001404              	beq	015566 <.text+015566>
 15556: 012745 000337       	mov	$223, -(r5)
 15562: 005245              	inc	-(r5)
 15564: 000000              	halt
 15566: 012767 100000 162650	mov	$-32768, $0444 <.text+0444>
 15574: 011061 000000       	mov	(r0), 0(r1)
 15600: 066011 000000       	add	0(r0), (r1)
 15604: 004737 017230       	jsr	pc, *$_cc7 <.text+017230>
 15610: 012767 021421 162624	mov	$8977, $0442 <.text+0442>
 15616: 012760 000442 000000	mov	$290, 0(r0)
 15624: 012711 156357       	mov	$-8977, (r1)
 15630: 010004              	mov	r0, r4
 15632: 067411 000000       	add	*0(r4), (r1)
 15636: 004737 017206       	jsr	pc, *$_cc5 <.text+017206>
 15642: 005430              	neg	*(r0)+
 15644: 012746 021421       	mov	$8977, -(sp)
 15650: 065066 000000       	add	*-(r0), 0(sp)
 15654: 004737 017206       	jsr	pc, *$_cc5 <.text+017206>
 15660: 005726              	tst	(sp)+
 15662: 001404              	beq	015674 <.text+015674>
 15664: 012745 000340       	mov	$224, -(r5)
 15670: 005245              	inc	-(r5)
 15672: 000000              	halt
 15674: 012767 137777 162542	mov	$-16385, $0444 <.text+0444>
 15702: 062767 137777 162534	add	$-16385, $0444 <.text+0444>
 15710: 004737 017142       	jsr	pc, *$_cc3 <.text+017142>
 15714: 022767 077776 162522	cmp	$32766, $0444 <.text+0444>
 15722: 001404              	beq	015734 <.text+015734>
 15724: 012745 000341       	mov	$225, -(r5)
 15730: 005245              	inc	-(r5)
 15732: 000000              	halt

 15734: 021527 000117       	cmp	(r5), $79
 15740: 001100              	bne	016142 <.text+016142>
 15742: 005215              	inc	(r5)
 15744: 012702 000440       	mov	$288, r2
 15750: 012703 000442       	mov	$290, r3
 15754: 012767 021421 162456	mov	$8977, $0440 <.text+0440>
 15762: 012767 156357 162452	mov	$-8977, $0442 <.text+0442>
 15770: 161213              	sub	(r2), (r3)
 15772: 004737 017252       	jsr	pc, *$_cc10 <.text+017252>
 15776: 022767 134736 162436	cmp	$-17954, $0442 <.text+0442>
 16004: 001404              	beq	016016 <.text+016016>
 16006: 012745 000342       	mov	$226, -(r5)
 16012: 005245              	inc	-(r5)
 16014: 000000              	halt
 16016: 012767 021421 162416	mov	$8977, $0442 <.text+0442>
 16024: 161213              	sub	(r2), (r3)
 16026: 001404              	beq	016040 <.text+016040>
 16030: 012745 000343       	mov	$227, -(r5)
 16034: 005245              	inc	-(r5)
 16036: 000000              	halt
 16040: 012767 177777 162374	mov	$-1, $0442 <.text+0442>
 16046: 012767 077777 162364	mov	$32767, $0440 <.text+0440>
 16054: 161312              	sub	(r3), (r2)
 16056: 004737 017334       	jsr	pc, *$_cc13 <.text+017334>
 16062: 022767 100000 162350	cmp	$-32768, $0440 <.text+0440>
 16070: 001404              	beq	016102 <.text+016102>
 16072: 012745 000344       	mov	$228, -(r5)
 16076: 005245              	inc	-(r5)
 16100: 000000              	halt
 16102: 012712 177777       	mov	$-1, (r2)
 16106: 161312              	sub	(r3), (r2)
 16110: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
 16114: 012767 077777 162316	mov	$32767, $0440 <.text+0440>
 16122: 162767 077777 162310	sub	$32767, $0440 <.text+0440>
 16130: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
 16134: 005767 162300       	tst	$0440 <.text+0440>
 16140: 001404              	beq	016152 <.text+016152>
 16142: 012745 000345       	mov	$229, -(r5)
 16146: 005245              	inc	-(r5)
 16150: 000000              	halt

 16152: 021527 000120       	cmp	(r5), $80
 16156: 001042              	bne	016264 <.text+016264>
 16160: 005215              	inc	(r5)
 16162: 012700 000012       	mov	$10, r0
 16166: 005001              	clr	r1
 16170: 005201              	inc	r1
 16172: 020127 000012       	cmp	r1, $10
 16176: 003404              	ble	016210 <.text+016210>
 16200: 012745 000346       	mov	$230, -(r5)
 16204: 005245              	inc	-(r5)
 16206: 000000              	halt
 16210: 000277              	scc
 16212: 077012              	sob	r0, 016170 <.text+016170>
 16214: 004737 017354       	jsr	pc, *$_cc17 <.text+017354>
 16220: 005700              	tst	r0
 16222: 001404              	beq	016234 <.text+016234>
 16224: 012745 000347       	mov	$231, -(r5)
 16230: 005245              	inc	-(r5)
 16232: 000000              	halt
 16234: 022701 000012       	cmp	$10, r1
 16240: 001404              	beq	016252 <.text+016252>
 16242: 012745 000350       	mov	$232, -(r5)
 16246: 005245              	inc	-(r5)
 16250: 000000              	halt
 16252: 012704 000010       	mov	$8, r4
 16256: 077401              	sob	r4, 016256 <.text+016256>
 16260: 005704              	tst	r4
 16262: 001404              	beq	016274 <.text+016274>
 16264: 012745 000351       	mov	$233, -(r5)
 16270: 005245              	inc	-(r5)
 16272: 000000              	halt

 16274: 021527 000121       	cmp	(r5), $81
 16300: 001042              	bne	016406 <.text+016406>
 16302: 005215              	inc	(r5)
 16304: 012700 000440       	mov	$288, r0
 16310: 012701 000442       	mov	$290, r1
 16314: 012711 177777       	mov	$-1, (r1)
 16320: 005010              	clr	(r0)
 16322: 106410              	mtps	(r0)
 16324: 004737 017062       	jsr	pc, *$_cc0 <.text+017062>
 16330: 106711              	mfps	(r1)
 16332: 004737 017164       	jsr	pc, *$_cc4 <.text+017164>
 16336: 022711 177400       	cmp	$-256, (r1)
 16342: 001404              	beq	016354 <.text+016354>
 16344: 012745 000352       	mov	$234, -(r5)
 16350: 005245              	inc	-(r5)
 16352: 000000              	halt
 16354: 005011              	clr	(r1)
 16356: 106427 000377       	mtps	$255
 16362: 004737 017354       	jsr	pc, *$_cc17 <.text+017354>
 16366: 106767 162050       	mfps	$0442 <.text+0442>
 16372: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
 16376: 022767 000357 162036	cmp	$239, $0442 <.text+0442>
 16404: 001404              	beq	016416 <.text+016416>
 16406: 012745 000353       	mov	$235, -(r5)
 16412: 005245              	inc	-(r5)
 16414: 000000              	halt

 16416: 021527 000122       	cmp	(r5), $82
 16422: 001124              	bne	016674 <.text+016674>
 16424: 005215              	inc	(r5)
 16426: 005000              	clr	r0
 16430: 000277              	scc
 16432: 112700 000200       	movb	$128, r0
 16436: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
 16442: 022700 177600       	cmp	$-128, r0
 16446: 001404              	beq	016460 <.text+016460>
 16450: 012745 000354       	mov	$236, -(r5)
 16454: 005245              	inc	-(r5)
 16456: 000000              	halt
 16460: 000277              	scc
 16462: 012700 177777       	mov	$-1, r0
 16466: 112700 000000       	movb	$0, r0
 16472: 004737 017206       	jsr	pc, *$_cc5 <.text+017206>
 16476: 005700              	tst	r0
 16500: 001404              	beq	016512 <.text+016512>
 16502: 012745 000355       	mov	$237, -(r5)
 16506: 005245              	inc	-(r5)
 16510: 000000              	halt
 16512: 012704 000444       	mov	$292, r4
 16516: 012714 000377       	mov	$255, (r4)
 16522: 012706 000526       	mov	$342, sp
 16526: 116426 000000       	movb	0(r4), (sp)+
 16532: 022706 000530       	cmp	$start, sp
 16536: 001404              	beq	016550 <.text+016550>
 16540: 012745 000356       	mov	$238, -(r5)
 16544: 005245              	inc	-(r5)
 16546: 000000              	halt
 16550: 124627 000377       	cmpb	-(sp), $255
 16554: 001404              	beq	016566 <.text+016566>
 16556: 012745 000357       	mov	$239, -(r5)
 16562: 005245              	inc	-(r5)
 16564: 000000              	halt
 16566: 022706 000526       	cmp	$342, sp
 16572: 001404              	beq	016604 <.text+016604>
 16574: 012745 000360       	mov	$240, -(r5)
 16600: 005245              	inc	-(r5)
 16602: 000000              	halt
 16604: 016467 000000 161626	mov	0(r4), $0440 <.text+0440>
 16612: 005726              	tst	(sp)+
 16614: 000277              	scc
 16616: 114667 161617       	movb	-(sp), $0441 <.text+0441>
 16622: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
 16626: 022767 177777 161604	cmp	$-1, $0440 <.text+0440>
 16634: 001404              	beq	016646 <.text+016646>
 16636: 012745 000361       	mov	$241, -(r5)
 16642: 005245              	inc	-(r5)
 16644: 000000              	halt
 16646: 005067 161566       	clr	$0440 <.text+0440>
 16652: 000241              	clc
 16654: 105167 161561       	comb	$0441 <.text+0441>
 16660: 004737 017272       	jsr	pc, *$_cc11 <.text+017272>
 16664: 022767 177400 161546	cmp	$-256, $0440 <.text+0440>
 16672: 001404              	beq	016704 <.text+016704>
 16674: 012745 000362       	mov	$242, -(r5)
 16700: 005245              	inc	-(r5)
 16702: 000000              	halt
#endif

//ntests = 0123
ntests = 012
next:   cmp	(r5), $ntests
    	beq	1f
    	mov	$0363, -(r5)
    	inc	-(r5)
    	halt
1:      inc	_pass
	cmpb	_pass, $1
    	bne	get42
    	iot
    	.word   endpas          // печать сообщения
#if 0
        mov     (pc), (pc)      // останов симулятора - успешно
        jsr     sp, -(pc)       // останов симулятора - ошибка
#endif
get42:  mov	*$042, r0
    	beq	doagn
_endad:	jsr	pc, (r0)
    	nop
    	nop
    	nop
doagn:  clr	_testn
    	jmp	start

pwrdn:  mov	$pwrup, *$024
    	halt                    // нет прерывания
pwrup:	mov	$start, sp
	mov	$pwrdn, *$024
    	iot
    	.word   power
    	br	doagn

//
// Печать сообщения.
//
type:   bitb	$040, *$_envm
    	bne	1f
    	mov	*0(sp), r3
3:    	tstb	(r3)
    	beq	1f
2:      tstb	*tps
    	bpl	2b
    	movb	(r3)+, *tpb
    	br	3b
1:      add	$2, (sp)
    	rtt

//
// Проверка признаков.
//
_cc0:   ble	1f
    	bmi	1f
    	bcc	2f
1:    	mov	$0364, -(r5)
    	inc	-(r5)
    	halt
2:    	rts	pc

_cc1:   ble	1f
    	bmi	1f
    	bcs	2f
1:    	mov	$0365, -(r5)
    	inc	-(r5)
    	halt
2:    	rts	pc

_cc2:   bmi	1f
    	blos	1f
    	bvs	2f
1:    	mov	$0366, -(r5)
    	inc	-(r5)
    	halt
2:    	rts	pc

_cc3:   bmi	1f
    	beq	1f
    	bvc	1f
    	bcs	2f
1:    	mov	$0367, -(r5)
    	inc	-(r5)
    	halt
2:    	rts	pc

_cc4:   bmi	1f
    	bne	1f
    	bvs	1f
    	bcc	2f
1:    	mov	$0370, -(r5)
    	inc	-(r5)
    	halt
2:    	rts	pc

_cc5:   bmi	1f
    	bne	1f
    	bvs	1f
    	bcs	2f
1:    	mov	$0371, -(r5)
    	inc	-(r5)
    	halt
2:    	rts	pc

_cc7:   bmi	1f
    	bne	1f
    	bvc	1f
    	bcs	2f
1:    	mov	$0372, -(r5)
    	inc	-(r5)
    	halt
2:    	rts	pc

_cc10:  bpl	1f
    	blos	1f
    	bvc	2f
1:    	mov	$0373, -(r5)
    	inc	-(r5)
    	halt
2:    	rts	pc

_cc11:  bpl	1f
    	beq	1f
    	bvs	1f
    	bcs	2f
1:    	mov	$0374, -(r5)
    	inc	-(r5)
    	halt
2:    	rts	pc

_cc12:  bpl	1f
    	blos	1f
    	bvs	2f
1:    	mov	$0375, -(r5)
    	inc	-(r5)
    	halt
2:    	rts	pc

_cc13:  bpl	1f
    	ble	1f
    	bcs	2f
1:    	mov	$0376, -(r5)
    	inc	-(r5)
    	halt
2:    	rts	pc

_cc17:  bpl	1f
    	bne	1f
    	bvc	1f
    	bcs	2f
1:    	mov	$0377, -(r5)
    	inc	-(r5)
    	halt
2:    	rts	pc
